(gnus-article-display-picons): Funcall

`gnus-extract-address-components'.

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index 7579b0c..47f71a0 100644 (file)
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -294,8 +294,9 @@ To use:  (setq gnus-article-x-face-command 'gnus-picons-display-x-face)"
     (when (and (featurep 'xpm)
               (or (not (fboundp 'device-type)) (equal (device-type) 'x))
               (setq from (mail-fetch-field "from"))
-              (setq from (downcase (or (cadr (mail-extract-address-components
-                                              from))
+              (setq from (downcase (or (cadr
+                                        (funcall gnus-extract-address-components
+                                                 from))
                                        "")))
               (or (setq at-idx (string-match "@" from))
                   (setq at-idx (length from))))