Update.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9aeb9f9..c73af11 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-03-13  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-draft.el (wl-draft): Rearranged.
+
 2002-03-12  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * wl-draft.el (wl-draft-create-contents): Treat symbol as a name

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index c39c09a..a9faf65 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1470,16 +1470,21 @@ Derived from `message-save-drafts' in T-gnus."
       (setq header-alist
            (append (list (cons 'From wl-from)) header-alist)))
     (unless (cdr (assq 'To header-alist))
-      (setq header-alist
-           (append header-alist
-                   (list (cons 'To
-                               (and
-                                (or (interactive-p)
-                                      (eq this-command 'wl-summary-write))
-                                ""))))))
-    (or (assoc 'Subject header-alist)
+      (let ((to))
+       (when (setq to (and
+                       (or (interactive-p)
+                           (eq this-command 'wl-summary-write))
+                       ""))
+         (if (assq 'To header-alist)
+             (setcdr (assq 'To header-alist) to)
+           (setq header-alist
+                 (append header-alist
+                         (list (cons 'To to))))))))
+    (unless (cdr (assq 'Subject header-alist))
+      (if (assq 'Subject header-alist)
+         (setcdr (assq 'Subject header-alist) "")
        (setq header-alist
-             (append header-alist (list (cons 'Subject "")))))
+             (append header-alist (list (cons 'Subject ""))))))
     (setq header-alist (append header-alist
                               (wl-draft-default-headers)
                               (if body (list "" body))))