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