From: ari <ari>
Date: Mon, 3 Nov 2003 08:37:35 +0000 (+0000)
Subject: * lisp/message.el (message-forward-subject-name-subject): Fixed.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b60e664c68bd4059821916858fc8d762b302d838;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index 49c1c4a..644b3e2 100644
--- 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
--- 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)