From a70923a1b0db639061c4256d54116845f4e08b2b Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 11 Dec 2004 05:18:25 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-forward): Call wl-draft-forward-make-subject in original message buffer. (wl-draft-reply): Call wl-draft-reply-make-subject in original message buffer. --- wl/ChangeLog | 7 +++++++ wl/wl-draft.el | 12 ++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 9ff38fa..1583e13 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,10 @@ +2004-12-11 Yoichi NAKAYAMA + + * wl-draft.el (wl-draft-forward): Call wl-draft-forward-make-subject + in original message buffer. + (wl-draft-reply): Call wl-draft-reply-make-subject in original message + buffer. + 2004-12-10 Yoichi NAKAYAMA * wl-draft.el (wl-draft-forward): Don't jump into temp-buffer. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 8da3e7c..345ad6c 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -279,10 +279,10 @@ e.g. (with-current-buffer summary-buf (setq parent-folder (wl-summary-buffer-folder-name))) (let ((decoder (mime-find-field-decoder 'Subject 'plain))) - (setq subject (wl-draft-forward-make-subject - (if (and original-subject decoder) - (funcall decoder original-subject) original-subject)))) + (setq subject (if (and original-subject decoder) + (funcall decoder original-subject) original-subject))) (with-current-buffer (wl-message-get-original-buffer) + (setq subject (wl-draft-forward-make-subject subject)) (setq references (nconc (std11-field-bodies '("References" "In-Reply-To")) (list (std11-field-body "Message-Id")))) @@ -383,9 +383,8 @@ Reply to author if WITH-ARG is non-nil." (with-temp-buffer ; to keep raw buffer unibyte. (set-buffer-multibyte default-enable-multibyte-characters) (setq decoder (mime-find-field-decoder 'Subject 'plain)) - (setq subject (wl-draft-reply-make-subject - (if (and subject decoder) - (funcall decoder subject) subject))) + (setq subject (if (and subject decoder) + (funcall decoder subject) subject)) (setq to-alist (mapcar (lambda (addr) @@ -400,6 +399,7 @@ Reply to author if WITH-ARG is non-nil." (cons (nth 1 (std11-extract-address-components addr)) (if decoder (funcall decoder addr) addr))) cc))) + (setq subject (wl-draft-reply-make-subject subject)) (setq in-reply-to (std11-field-body "Message-Id")) (setq references (nconc (std11-field-bodies '("References" "In-Reply-To")) -- 1.7.10.4