[mew-dist 22222] mew-ask-to

[KOIE Hidetaka ( 鯉江英隆 )]

サマリでの w,f,F で
まず最初に To: をきいてくれると
caseの推測ができてうれしいので、パッチです。

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>
-------------- next part --------------
Index: mew-summary3.el
===================================================================
RCS file: /cvsmew/mew/mew-summary3.el,v
retrieving revision 1.12
diff -u -F^( -r1.12 mew-summary3.el
--- mew-summary3.el	2002/10/31 08:25:12	1.12
+++ mew-summary3.el	2002/11/08 09:26:23
@@ -59,6 +59,8 @@ (defun mew-summary-send (&optional to cc
   "Write a message. A new draft is prepared in Draft mode."
   (interactive)
   (let ((draft (mew-folder-new-message mew-draft-folder)))
+    (when (and mew-ask-to (null to))
+        (setq to (mew-input-address (concat mew-to: " "))))
     (mew-current-set-window-config)
     (mew-window-configure 'draft)
     (mew-summary-prepare-draft
@@ -270,6 +272,7 @@ (defun mew-summary-forward ()
 	   (file (mew-expand-folder fld msg))
 	   (draft (mew-folder-new-message mew-draft-folder))
 	   (draftdir (file-name-nondirectory draft))
+	   (to (and mew-ask-to (mew-input-address (concat mew-to: " "))))
 	   subject fwsubject cwin)
       (mew-summary-prepare-draft
        (mew-summary-prepare-three-windows)
@@ -291,7 +294,7 @@ (defun mew-summary-forward ()
 	   (setq fwsubject (mew-subject-simplify (concat mew-forward-string subject))))
        (select-window cwin) ;; draft
        ;;
-       (mew-draft-header fwsubject 'nl)
+       (mew-draft-header fwsubject 'nl to)
        (mew-draft-mode)
        (run-hooks 'mew-draft-mode-newdraft-hook)
        (mew-draft-multi-copy draft (list file))
@@ -313,12 +316,13 @@ (defun mew-summary-multi-forward ()
    (mew-summary-not-in-draft
     (mew-current-set-window-config)
     (let* ((draft (mew-folder-new-message mew-draft-folder))
-	   (draftdir (file-name-nondirectory draft)))
+	   (draftdir (file-name-nondirectory draft))
+	   (to (and mew-ask-to (mew-input-address (concat mew-to: " ")))))
       (mew-summary-prepare-draft
        (mew-summary-prepare-three-windows)
        (mew-draft-find-and-switch draft t)
        (mew-delete-directory-recursively (mew-attachdir draft))
-       (mew-draft-header nil 'nl)
+       (mew-draft-header nil 'nl to)
        (mew-draft-mode)
        (run-hooks 'mew-draft-mode-newdraft-hook)
        (mew-draft-multi-copy draft FILES)
Index: mew-vars.el
===================================================================
RCS file: /cvsmew/mew/mew-vars.el,v
retrieving revision 1.148
diff -u -F^( -r1.148 mew-vars.el
--- mew-vars.el	2002/11/07 03:44:32	1.148
+++ mew-vars.el	2002/11/08 09:26:24
@@ -1192,6 +1192,11 @@ (defcustom mew-ask-subject nil
   :group 'mew-draft
   :type 'boolean)
 
+(defcustom mew-ask-to t
+  "*If *non-nil*, ask a user to whom he/she sends."
+  :group 'mew-draft
+  :type 'boolean)
+
 (defcustom mew-ask-fcc nil
   "*If *non-nil* and a folder on Fcc: does not exist, ask a user to
 create it. If nil, folders which are not present are created without