* wl-draft.el (wl-draft-reply): Fixed problem when there's no subject

 field in the original message.
(Pointed out by "HIROSE, Masaaki" <hirose31@t3.rim.or.jp>)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ddcc282..568c683 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2001-01-22  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-draft.el (wl-draft-reply): Fixed problem when there's no subject
+       field in the original message.
+       (Pointed out by "HIROSE, Masaaki" <hirose31@t3.rim.or.jp>)
+
 2001-01-19  Akihiro MOTOKI <mokkun@iname.com>
 
        * wl-expire.el (wl-expire-hide):

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 02edd66..cc3d69e 100644 (file)
--- 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"))