* wl-draft.el (wl-draft-forward): Don't jump into temp-buffer.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index eeff565..9ff38fa 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2004-12-10  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
+       * wl-draft.el (wl-draft-forward): Don't jump into temp-buffer.
+
+2004-12-10  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
        * wl-vars.el (wl-summary-line-format): Add reference to wl-summary-width.
 
 2004-12-07  Tetsurou Okazaki  <okazaki@be.to>

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index feccd8c..8da3e7c 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -278,12 +278,10 @@ e.g.
   (let (references parent-folder subject)
     (with-current-buffer summary-buf
       (setq parent-folder (wl-summary-buffer-folder-name)))
-    (with-temp-buffer                  ; to keep raw buffer unibyte.
-      (set-buffer-multibyte default-enable-multibyte-characters)
-      (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)))))
+    (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))))
     (with-current-buffer (wl-message-get-original-buffer)
       (setq references (nconc
                        (std11-field-bodies '("References" "In-Reply-To"))