From: teranisi Date: Mon, 22 Jan 2001 01:18:37 +0000 (+0000) Subject: * wl-draft.el (wl-draft-reply): Fixed problem when there's no subject X-Git-Tag: wl-2_4_1~20 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0419d117978561a41d563f8536046610d829ba10;p=elisp%2Fwanderlust.git * wl-draft.el (wl-draft-reply): Fixed problem when there's no subject field in the original message. (Pointed out by "HIROSE, Masaaki" ) --- diff --git a/wl/ChangeLog b/wl/ChangeLog index ddcc282..568c683 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2001-01-22 Yuuichi Teranishi + + * wl-draft.el (wl-draft-reply): Fixed problem when there's no subject + field in the original message. + (Pointed out by "HIROSE, Masaaki" ) + 2001-01-19 Akihiro MOTOKI * wl-expire.el (wl-expire-hide): diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 02edd66..cc3d69e 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -320,7 +320,8 @@ Return symbol, not list. Use symbol-name" (with-temp-buffer ; to keep raw buffer unibyte. (elmo-set-buffer-multibyte default-enable-multibyte-characters) (setq decoder (mime-find-field-decoder 'Subject 'plain)) - (setq subject (if decoder (funcall decoder subject) subject)) + (setq subject (if (and subject decoder) + (funcall decoder subject) subject)) (setq to-alist (mapcar (lambda (addr) @@ -335,9 +336,10 @@ Return symbol, not list. Use symbol-name" (cons (nth 1 (std11-extract-address-components addr)) (if decoder (funcall decoder addr) addr))) cc))) - (and subject wl-reply-subject-prefix + (and wl-reply-subject-prefix (setq subject (concat wl-reply-subject-prefix - (wl-draft-strip-subject-re subject)))) + (wl-draft-strip-subject-re + (or subject ""))))) (setq in-reply-to (std11-field-body "Message-Id")) (setq references (nconc (std11-field-bodies '("References" "In-Reply-To"))