From: yoichi <yoichi>
Date: Sun, 17 Mar 2002 08:40:51 +0000 (+0000)
Subject: * wl-draft.el (wl-draft): Call wl-draft-create-buffer with the
X-Git-Tag: elmo-mark-root~252
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f315400342523545585632833c69290daecdc08b;p=elisp%2Fwanderlust.git

* 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
To header.
Rewrite condition for positioning cursor.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8a13f92..c389987 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+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
+	To header.
+	Rewrite condition for positioning cursor.
+
 2002-03-15  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-folder.el (wl-folder-jump-to-next-summary): If the window of
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 2edf9f2..db9d857 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1463,7 +1463,8 @@ Derived from `message-save-drafts' in T-gnus."
 	   (or
 	    (eq this-command 'wl-draft)
 	    (eq this-command 'wl-summary-write)
-	    (eq this-command 'wl-summary-write-current-folder))
+	    (eq this-command 'wl-summary-write-current-folder)
+	    (eq this-command 'wl-folder-write-current-folder))
 	   parent-folder))
 
     (unless (cdr (assq 'From header-alist))
@@ -1473,7 +1474,14 @@ Derived from `message-save-drafts' in T-gnus."
       (let ((to))
 	(when (setq to (and
 			(or (interactive-p)
-			    (eq this-command 'wl-summary-write))
+			    (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))))
 			""))
 	  (if (assq 'To header-alist)
 	      (setcdr (assq 'To header-alist) to)
@@ -1498,11 +1506,16 @@ Derived from `message-save-drafts' in T-gnus."
 	(run-hooks 'wl-mail-setup-hook))
     (goto-char (point-min))
     (wl-user-agent-compose-internal) ;; user-agent
-    (cond ((eq this-command 'wl-summary-write-current-newsgroup)
-	   (mail-position-on-field "Subject"))
-	  ((and (interactive-p)
-		(null (assq 'To header-alist)))
+    (cond ((and
+	    (or (interactive-p)
+		(eq this-command 'wl-summary-write)
+		(eq this-command 'wl-summary-write-current-folder)
+		(eq this-command 'wl-folder-write-current-folder))
+	    (string= (cdr (assq 'To header-alist)) ""))
 	   (mail-position-on-field "To"))
+	  ((or (eq this-command 'wl-summary-write-current-folder)
+		(eq this-command 'wl-folder-write-current-folder))
+	   (mail-position-on-field "Subject"))
 	  (t
 	   (goto-char (point-max))))
     buf-name))