From: yamaoka <yamaoka>
Date: Tue, 24 Sep 2002 10:02:52 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-04-quimby~30
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=09a161c758a9731d3a238229ab60fe7621bcc106;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 12554b1..ea3ea82 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-09-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+	From TSUCHIYA Masatoshi <tsuchiya@namazu.org>.
+
+	* gnus-art.el (article-strip-banner): Check for the existence of
+	from header.
+
 2002-09-23  Kai Gro,b_(Bjohann  <grossjoh@ls6.informatik.uni-dortmund.de>
 
 	* gnus-art.el (gnus-button-guessed-mid-regexp): Improved regexp.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 72dabcc..dcbc3fd 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2409,12 +2409,14 @@ always hide."
 		(let ((from (save-restriction
 			      (widen)
 			      (article-narrow-to-head)
-			      (caar (mail-header-parse-addresses
-				     (mail-fetch-field "from"))))))
-		  (catch 'found
-		    (dolist (pair gnus-article-address-banner-alist)
-		      (when (string-match (car pair) from)
-			(throw 'found (cdr pair))))))))
+			      (mail-fetch-field "from"))))
+		  (when (and from
+			     (setq from
+				   (caar (mail-header-parse-addresses from))))
+		    (catch 'found
+		      (dolist (pair gnus-article-address-banner-alist)
+			(when (string-match (car pair) from)
+			  (throw 'found (cdr pair)))))))))
 	(when banner
 	  (article-goto-body)
 	  (cond