From 48e7184a237abdad4c7d8588c751d705ce343317 Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Fri, 19 Jun 1998 08:47:30 +0000 Subject: [PATCH] (gnus-article-display-picons): Funcall `gnus-extract-address-components'. --- lisp/gnus-picon.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el index 7579b0c..47f71a0 100644 --- 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)))) -- 1.7.10.4