From c1271aec9f4879d970d85e022aa97a7a70d565cb Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 5 Sep 2004 16:16:14 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-reply): Save wl-draft-config-variables after adding wl-draft-parent-variables. (wl-draft-forward): Ditto. --- wl/ChangeLog | 6 ++++++ wl/wl-draft.el | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4