Synch with Oort Gnus.
authoryamaoka <yamaoka>
Tue, 24 Sep 2002 10:02:52 +0000 (10:02 +0000)
committeryamaoka <yamaoka>
Tue, 24 Sep 2002 10:02:52 +0000 (10:02 +0000)
lisp/ChangeLog
lisp/gnus-art.el

index 12554b1..ea3ea82 100644 (file)
@@ -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.
 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.
index 72dabcc..dcbc3fd 100644 (file)
@@ -2409,12 +2409,14 @@ always hide."
                (let ((from (save-restriction
                              (widen)
                              (article-narrow-to-head)
                (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
        (when banner
          (article-goto-body)
          (cond