* lisp/message.el (message-forward-subject-name-subject): Fixed.

diff --git a/ChangeLog b/ChangeLog
index 49c1c4a..644b3e2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-11-03  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp>
+
+       * lisp/message.el (message-forward-subject-name-subject): Fixed.
+
 2003-10-27  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * texi/infohack.el: Don't fiddle with the `features' variable;

diff --git a/lisp/message.el b/lisp/message.el
index 2d3c7cf..f0a21dc 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6678,10 +6678,10 @@ news, Source is the list of newsgroups is was posted to."
                from)
            (if group
                (gnus-group-decoded-name group)
-             (if (setq from (message-fetch-field "from"))
-                 (std11-extract-address-components (nnheader-decode-from
-                                                    from))
-               "(nowhere)")))
+             (or (and (setq from (message-fetch-field "from"))
+                      (car (std11-extract-address-components 
+                            (nnheader-decode-from from))))
+                 "(nowhere)")))
          "] " subject))
 
 (defun message-forward-subject-author-subject (subject)