Commit d71c0855 authored by Miles Bader's avatar Miles Bader
Browse files

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-94

Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 35-36)

   - Merge from emacs--devo--0
   - Update from CVS
parent 6ce2b6ab
......@@ -7,6 +7,11 @@
* gnus-cus.el: Revert 2005-10-17 change.
2006-02-17 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (article-strip-banner): Call
article-really-strip-banner only when the regexp match is made.
2006-02-16 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (article-strip-banner): Use
......
......@@ -2611,19 +2611,19 @@ always hide."
;; Note that the From header is decoded here, so it is
;; required that the *-extract-address-components function
;; supports non-ASCII text.
(article-really-strip-banner
(let ((from (save-restriction
(widen)
(article-narrow-to-head)
(mail-fetch-field "from"))))
(when (and from
(setq from
(cadr (funcall gnus-extract-address-components
from))))
(catch 'found
(dolist (pair gnus-article-address-banner-alist)
(when (string-match (car pair) from)
(throw 'found (cdr pair)))))))))))))
(let ((from (save-restriction
(widen)
(article-narrow-to-head)
(mail-fetch-field "from"))))
(when (and from
(setq from
(cadr (funcall gnus-extract-address-components
from))))
(catch 'found
(dolist (pair gnus-article-address-banner-alist)
(when (string-match (car pair) from)
(throw 'found
(article-really-strip-banner (cdr pair)))))))))))))
(defun article-really-strip-banner (banner)
"Strip the banner specified by the argument."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment