changeset 47540:b825bae4a1ad

* gnus-art.el (gnus-article-x-face-command): Don't use gnus-article-compface-xbm.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Wed, 18 Sep 2002 17:55:26 +0000
parents 663c306c80c6
children ac74c9966df5
files lisp/gnus/ChangeLog lisp/gnus/gnus-art.el
diffstat 2 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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 -"))