From: ShengHuo ZHU Date: Sat, 21 Sep 2002 19:57:11 +0000 (+0000) Subject: * gnus-art.el (gnus-article-x-face-command): Use X-Git-Tag: ttn-vms-21-2-B4~13096 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3cc82ee4989bd4bae73dfce7436b2750ab56210b;p=emacs.git * gnus-art.el (gnus-article-x-face-command): Use gnus-article-compface-xbm if bound. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4ae2664327e..1bd12391229 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2002-09-21 Rob Browning + + * gnus-art.el (gnus-article-x-face-command): Use + gnus-article-compface-xbm if bound. + 2002-09-18 Rob Browning * gnus-art.el (gnus-article-x-face-command): Don't use diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index e3ed0683953..ae8a7ee732f 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -207,8 +207,10 @@ regexp. If it matches, the text in question is not a signature." (if (and (fboundp 'image-type-available-p) (image-type-available-p 'xbm)) 'gnus-article-display-xface - (if (eq 0 (string-match "#define" - (shell-command-to-string "uncompface -X"))) + (if (or (and (boundp 'gnus-article-compface-xbm) + gnus-article-compface-xbm) + (eq 0 (string-match "#define" + (shell-command-to-string "uncompface -X")))) "{ echo '/* Width=48, Height=48 */'; uncompface; } | display -" "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | \ display -"))