* 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 4ae2664327eb977d4bd652c348c46478a214768b..1bd123912297e9a380163d41d85c68b1c9d5922b 100644 (file)
--- 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 e3ed0683953c5ab6d5193ccc8ce658ae5ebb753b..ae8a7ee732f6e1545b2181fddc0536c2d3229ff0 100644 (file)
--- 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 -"))