* 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 (file)
--- 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 (file)
--- 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))