From: yoichi <yoichi>
Date: Wed, 13 Mar 2002 08:49:39 +0000 (+0000)
Subject: Update.
X-Git-Tag: elmo-mark-root~256
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=662a382f6212d777b22099cb98e3c44b0eb78376;p=elisp%2Fwanderlust.git

Update.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9aeb9f9..c73af11 100644
--- 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
--- 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))))