From 523da1aaffe26afc9ab817ac3ef6855405615a79 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 10 Dec 2004 09:46:29 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-forward): Don't jump into temp-buffer. --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 10 ++++------ 2 files changed, 8 insertions(+), 6 deletions(-) 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 + * wl-draft.el (wl-draft-forward): Don't jump into temp-buffer. + +2004-12-10 Yoichi NAKAYAMA + * wl-vars.el (wl-summary-line-format): Add reference to wl-summary-width. 2004-12-07 Tetsurou Okazaki 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")) -- 1.7.10.4