(gnus-picon-find-face): Don't search "news" for MISC.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 122326b..507f307 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * gnus-picon.el (gnus-picon-find-face): Search MISC for all types.
        (gnus-picon-transform-address): Search for unknown faces as well. 
+       (gnus-picon-find-face): Don't search "news" for MISC.
 
        * gnus-sum.el (gnus-summary-hide-all-threads): Reversed logic. 
 

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index d29d2e5..f846b01 100644 (file)
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -127,10 +127,11 @@ List of pairs (KEY . GLYPH) where KEY is either a filename or an URL.")
            (if exact
                (setq address nil)
              (pop address)))
-         ;; Kludge to search MISC as well.
-         (when (setq result (gnus-picon-find-image
-                             (concat base "/MISC/" user "/")))
-           (throw 'found result)))))))
+         ;; Kludge to search MISC as well.  But not in "news".
+         (unless (string= directory "news")
+           (when (setq result (gnus-picon-find-image
+                               (concat base "/MISC/" user "/")))
+             (throw 'found result))))))))
 
 (defun gnus-picon-find-image (directory)
   (let ((types gnus-picon-file-types)