From 5c2faf499e32cf6544e412d803c92a7c60c7aed7 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 24 Jun 2004 15:33:16 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-reply): Decode subject before removing Re: prefix. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 140673f..815cab9 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2004-06-25 Yoichi NAKAYAMA + + * wl-draft.el (wl-draft-reply): Decode subject before removing + Re: prefix. + 2004-06-23 Tetsurou Okazaki * 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 --- 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) -- 1.7.10.4