Mercurial > emacs
diff lisp/gnus/gnus-art.el @ 68944:5e2a9bb28073
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
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 17 Feb 2006 02:38:14 +0000 |
| parents | 808f636eb13e |
| children | b4faac2800dd 9e490faa9f6b |
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el Fri Feb 17 01:59:49 2006 +0000 +++ b/lisp/gnus/gnus-art.el Fri Feb 17 02:38:14 2006 +0000 @@ -2611,19 +2611,19 @@ ;; 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."