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 <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 --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 -"))