From: yoichi <yoichi>
Date: Sun, 17 Mar 2002 09:34:26 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-write-current-folder): If it cannot
X-Git-Tag: elmo-mark-root~251
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9d0d14aa426c172643cfbb4db550bd61494f096a;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-write-current-folder): If it cannot
guess anything, call wl-summary-write interactively.
* wl-draft.el (wl-draft): Undo corresponding part of the last
change (the blank To header).
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c389987..b1ddfea 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,12 @@
 2002-03-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+	* wl-summary.el (wl-summary-write-current-folder): If it cannot
+	guess anything, call wl-summary-write interactively.
+	* wl-draft.el (wl-draft): Undo corresponding part of the last
+	change (the blank To header).
+
+2002-03-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
 	* wl-draft.el (wl-draft): Call wl-draft-create-buffer with the
 	argument full as well for wl-folder-write-current-folder.
 	If wl-*-write-current-folder cannot guess addressee, add blank
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index db9d857..d9d400f 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1473,15 +1473,7 @@ Derived from `message-save-drafts' in T-gnus."
     (unless (cdr (assq 'To header-alist))
       (let ((to))
 	(when (setq to (and
-			(or (interactive-p)
-			    (eq this-command 'wl-summary-write)
-			    (and
-			     (null (cdr (assq 'Newsgroups header-alist)))
-			     (or
-			      (eq this-command
-				  'wl-summary-write-current-folder)
-			      (eq this-command
-				  'wl-folder-write-current-folder))))
+			(interactive-p)
 			""))
 	  (if (assq 'To header-alist)
 	      (setcdr (assq 'To header-alist) to)
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 227a820..38ce254 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4987,8 +4987,8 @@ Reply to author if invoked with ARG."
 (defun wl-summary-write ()
   "Write a new draft from Summary."
   (interactive)
-  (wl-draft nil nil nil nil nil
-	    (wl-summary-buffer-folder-name))
+  (wl-draft (list (cons 'To ""))
+	    nil nil nil nil (wl-summary-buffer-folder-name))
   (run-hooks 'wl-mail-setup-hook)
   (mail-position-on-field "To"))
 
@@ -5015,7 +5015,7 @@ Use function list is `wl-summary-write-current-folder-functions'."
 	(setq guess-func (car func-list))
 	(setq func-list nil)))
     (if (null guess-func)
-	(wl-draft)
+	(call-interactively 'wl-summary-write)
       (unless (or (stringp (nth 0 guess-list))
 		  (stringp (nth 1 guess-list))
 		  (stringp (nth 2 guess-list)))