Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 12554b1..ea3ea82 100644 (file)
--- 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\e,b_\e(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 (file)
--- 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