# HG changeset patch
# User ShengHuo ZHU <zsh@cs.rochester.edu>
# Date 1032638231 0
# Node ID 451b8289e2837328635a015d04be9a3b26a8b7f0
# Parent  731d8ffd058967c6f549cd1d76947aeff3511e4b
	* gnus-art.el (gnus-article-x-face-command): Use
	gnus-article-compface-xbm if bound.

diff -r 731d8ffd0589 -r 451b8289e283 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sat Sep 21 18:37:16 2002 +0000
+++ b/lisp/gnus/ChangeLog	Sat Sep 21 19:57:11 2002 +0000
@@ -1,3 +1,8 @@
+2002-09-21  Rob Browning <rlb@defaultvalue.org>
+
+	* gnus-art.el (gnus-article-x-face-command): Use
+	gnus-article-compface-xbm if bound.
+
 2002-09-18  Rob Browning <rlb@defaultvalue.org>
 
 	* gnus-art.el (gnus-article-x-face-command): Don't use
diff -r 731d8ffd0589 -r 451b8289e283 lisp/gnus/gnus-art.el
--- a/lisp/gnus/gnus-art.el	Sat Sep 21 18:37:16 2002 +0000
+++ b/lisp/gnus/gnus-art.el	Sat Sep 21 19:57:11 2002 +0000
@@ -207,8 +207,10 @@
   (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 -"))