From 876fd62b38eeb1669e626db7e2679c122e229f75 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 24 Jun 2004 16:11:04 +0000 Subject: [PATCH] rewrite the last change --- wl/wl-draft.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 543d563..66bf444 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -363,15 +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 - (elmo-decoded-field-body "Subject"))) + (setq subject (std11-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 (wl-draft-reply-make-subject + (if (and subject decoder) + (funcall decoder subject) subject))) (setq to-alist (mapcar (lambda (addr) -- 1.7.10.4