From: yoichi <yoichi>
Date: Thu, 24 Jun 2004 16:11:04 +0000 (+0000)
Subject: rewrite the last change
X-Git-Tag: wl-2_11_31~84
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=876fd62b38eeb1669e626db7e2679c122e229f75;p=elisp%2Fwanderlust.git

rewrite the last change
---

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 543d563..66bf444 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -363,15 +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
-		   (elmo-decoded-field-body "Subject")))
+    (setq subject (std11-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 (wl-draft-reply-make-subject
+		     (if (and subject decoder)
+			 (funcall decoder subject) subject)))
       (setq to-alist
 	    (mapcar
 	     (lambda (addr)