From: yoichi <yoichi>
Date: Fri, 10 Dec 2004 09:46:29 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-forward): Don't jump into temp-buffer.
X-Git-Tag: wl-2_12-root~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=523da1aaffe26afc9ab817ac3ef6855405615a79;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index eeff565..9ff38fa 100644
--- 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
--- 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"))