From: yoichi <yoichi>
Date: Sun, 5 Sep 2004 16:16:14 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-reply): Save wl-draft-config-variables
X-Git-Tag: wl-2_11_31~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c1271aec9f4879d970d85e022aa97a7a70d565cb;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-reply): Save wl-draft-config-variables
after adding wl-draft-parent-variables.
(wl-draft-forward): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1f17e41..56b1f7d 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2004-09-06  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-draft.el (wl-draft-reply): Save wl-draft-config-variables
+	after adding wl-draft-parent-variables.
+	(wl-draft-forward): Ditto.
+
 2004-09-05  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-sync-marks): Call
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index a4a182f..cbd36f1 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -297,13 +297,13 @@ e.g.
 		    (cons 'References references))
 	      nil nil nil nil parent-folder))
   (setq wl-draft-parent-number number)
-  (wl-draft-config-info-operation wl-draft-buffer-message-number 'save)
   (goto-char (point-max))
   (wl-draft-insert-message)
   (mail-position-on-field "To")
   (setq wl-draft-config-variables
 	(append wl-draft-parent-variables
 		wl-draft-config-variables))
+  (wl-draft-config-info-operation wl-draft-buffer-message-number 'save)
   (run-hooks 'wl-draft-forward-hook))
 
 (defun wl-draft-self-reply-p ()
@@ -467,11 +467,11 @@ Reply to author if WITH-ARG is non-nil."
 		    (cons 'Mail-Followup-To mail-followup-to))
 	      nil nil nil nil parent-folder)
     (setq wl-draft-parent-number number)
-    (wl-draft-config-info-operation wl-draft-buffer-message-number 'save)
     (setq wl-draft-reply-buffer buf)
     (setq wl-draft-config-variables
 	  (append wl-draft-parent-variables
-		  wl-draft-config-variables)))
+		  wl-draft-config-variables))
+    (wl-draft-config-info-operation wl-draft-buffer-message-number 'save))
   (run-hooks 'wl-draft-reply-hook))
 
 (defun wl-draft-reply-position (position)