# HG changeset patch
# User ShengHuo ZHU <zsh@cs.rochester.edu>
# Date 1032371726 0
# Node ID b825bae4a1ad9d39f39534576c252ac18a9cdfac
# Parent  663c306c80c6983a65db73eea69cfaf355ffeb21
	* gnus-art.el (gnus-article-x-face-command): Don't use
	gnus-article-compface-xbm.

diff -r 663c306c80c6 -r b825bae4a1ad lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Sep 18 16:47:48 2002 +0000
+++ b/lisp/gnus/ChangeLog	Wed Sep 18 17:55:26 2002 +0000
@@ -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 -r 663c306c80c6 -r b825bae4a1ad lisp/gnus/gnus-art.el
--- a/lisp/gnus/gnus-art.el	Wed Sep 18 16:47:48 2002 +0000
+++ b/lisp/gnus/gnus-art.el	Wed Sep 18 17:55:26 2002 +0000
@@ -207,7 +207,8 @@
   (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 -"))