(article-strip-banner): Use MIME-encoded from fields

instead of MIME-decoded from fields when checking
`gnus-article-address-banner-alist', instead of calling
`gnus-fetch-original-field'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b8d51e4..e758535 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,7 @@
 2004-05-06  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
-       * gnus-art.el (article-strip-banner): Use original from fields
-       instead of MIME-decoded from fields, when checking
+       * gnus-art.el (article-strip-banner): Use MIME-encoded from fields
+       instead of MIME-decoded from fields when checking
        `gnus-article-address-banner-alist'.
 
 2004-05-03  Jesper Harder  <harder@ifa.au.dk>

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a0ae218..6fa0e1d 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2485,9 +2485,20 @@ always hide."
          (article-really-strip-banner
           (gnus-parameter-banner gnus-newsgroup-name)))
        (when gnus-article-address-banner-alist
-         (let ((from (caar (mail-header-parse-addresses
-                            (gnus-fetch-original-field "from")))))
-           (when from
+         ;; It is necessary to encode from fields before checking,
+         ;; because `mail-header-parse-addresses' does not work
+         ;; (reliably) on decoded headers.  And more, it is
+         ;; impossible to use `gnus-fetch-original-field' here,
+         ;; because `article-strip-banner' may be called in draft
+         ;; buffers to preview them.
+         (let ((from (save-restriction
+                       (widen)
+                       (article-narrow-to-head)
+                       (mail-fetch-field "from"))))
+           (when (and from
+                      (setq from
+                            (caar (mail-header-parse-addresses
+                                   (mail-encode-encoded-word-string from)))))
              (catch 'found
                (dolist (pair gnus-article-address-banner-alist)
                  (when (string-match (car pair) from)