* gnus-art.el (gnus-article-x-face-command): Don't use

	gnus-article-compface-xbm.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 6153a7de957961615e5fa9c1ef7e7ab6e1b3fe1a..4ae2664327eb977d4bd652c348c46478a214768b 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-18  Rob Browning <rlb@defaultvalue.org>
+
+       * gnus-art.el (gnus-article-x-face-command): Don't use
+       gnus-article-compface-xbm.
+
 2002-09-06  Juanma Barranquero  <lektu@terra.es>
 
        * gnus-int.el (gnus-status-message): Fix spacing.

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 8201993c7f89883f2ffd79d8328bf5395b73350a..e3ed0683953c5ab6d5193ccc8ce658ae5ebb753b 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -207,7 +207,8 @@ 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 gnus-article-compface-xbm
+    (if (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 -"))