From: yoichi <yoichi>
Date: Thu, 24 Jun 2004 15:33:16 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-reply): Decode subject before removing
X-Git-Tag: wl-2_11_31~85
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5c2faf499e32cf6544e412d803c92a7c60c7aed7;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-reply): Decode subject before removing
Re: prefix.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 140673f..815cab9 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-06-25  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-draft.el (wl-draft-reply): Decode subject before removing
+	Re: prefix.
+
 2004-06-23  Tetsurou Okazaki  <okazaki@be.to>
 
 	* wl-summary.el (wl-summary-sort-by-size): New command.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 17f6ce0..543d563 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -363,14 +363,15 @@ Reply to author if WITH-ARG is non-nil."
 	(setq r-list (cdr r-list)))
       (error "No match field: check your `wl-draft-reply-%s-argument-list'"
 	     (if with-arg "with" "without")))
-    (setq subject (wl-draft-reply-make-subject (std11-field-body "Subject")))
+    (setq subject (wl-draft-reply-make-subject
+		   (elmo-decoded-field-body "Subject")))
     (setq to (wl-parse-addresses to)
 	  cc (wl-parse-addresses cc))
     (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 (if (and subject decoder)
-			(funcall decoder subject) subject))
+;      (setq decoder (mime-find-field-decoder 'Subject 'plain))
+;      (setq subject (if (and subject decoder)
+;			(funcall decoder subject) subject))
       (setq to-alist
 	    (mapcar
 	     (lambda (addr)