From: yoichi <yoichi>
Date: Sat, 11 Dec 2004 05:18:25 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-forward):  Call wl-draft-forward-make-subject
X-Git-Tag: wl-2_12-root~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a70923a1b0db639061c4256d54116845f4e08b2b;p=elisp%2Fwanderlust.git

* 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.
---

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  <yoichi@geiin.org>
+
+	* 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  <yoichi@geiin.org>
 
 	* 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"))