(message-forward-subject-name-subject): Fix the case when the

	field "from" doesn't exist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66506a2..ba9a9ea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,9 @@
 
        * message.el (message-setup-1): Setup alternative email before
        generate-headers.
+       
+       (message-forward-subject-name-subject): Fix the case when the
+       field "from" doesn't exist.
 
 2003-05-07  Dave Love  <fx@gnu.org>
 

diff --git a/lisp/message.el b/lisp/message.el
index b03b8ab..c7764e9 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5851,10 +5851,12 @@ news, Source is the list of newsgroups is was posted to."
   (concat "["
          (let ((prefix
                 (or (message-fetch-field "newsgroups")
-                    (cdr
-                     (mail-header-parse-address
-                      (mail-decode-encoded-word-string
-                       (message-fetch-field "from"))))
+                    (let ((from (message-fetch-field "from")))
+                      (and from
+                           (cdr
+                            (mail-header-parse-address
+                             (mail-decode-encoded-word-string
+                              from)))))
                     "(nowhere)")))
            (if message-forward-decoded-p
                prefix