From: shuhei-k Date: Fri, 19 Jun 1998 08:47:30 +0000 (+0000) Subject: (gnus-article-display-picons): Funcall X-Git-Tag: semi-mule-199811302358~64 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=48e7184a237abdad4c7d8588c751d705ce343317;p=elisp%2Fgnus.git- (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 --- 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))))