diff options
| author | Miles Bader <miles@gnu.org> | 2006-02-17 00:24:04 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2006-02-17 00:24:04 +0000 |
| commit | cf5a5c38c6d1263cbdcf4561b25f5e6988f4c419 (patch) | |
| tree | 5c1508ea2fce2b511fe7733888ac4ad4d8e1e634 /lisp/gnus/gnus-art.el | |
| parent | 60b8fb50eefe34d56dbf42de2183ec6d21769379 (diff) | |
| download | emacs-cf5a5c38c6d1263cbdcf4561b25f5e6988f4c419.tar.gz emacs-cf5a5c38c6d1263cbdcf4561b25f5e6988f4c419.tar.bz2 emacs-cf5a5c38c6d1263cbdcf4561b25f5e6988f4c419.zip | |
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-93
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 30-34)
- Merge from emacs--devo--0
- Update from CVS
Diffstat (limited to 'lisp/gnus/gnus-art.el')
| -rw-r--r-- | lisp/gnus/gnus-art.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index c15151729a0..0d9b5f4be5a 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -2608,6 +2608,9 @@ always hide." (article-really-strip-banner (gnus-parameter-banner gnus-newsgroup-name))) (when gnus-article-address-banner-alist + ;; 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) @@ -2615,7 +2618,8 @@ always hide." (mail-fetch-field "from")))) (when (and from (setq from - (caar (mail-header-parse-addresses from)))) + (cadr (funcall gnus-extract-address-components + from)))) (catch 'found (dolist (pair gnus-article-address-banner-alist) (when (string-match (car pair) from) |