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

Re: prefix.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 140673f..815cab9 100644 (file)
--- 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 (file)
--- 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)