2000-10-13 10:52:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-ems.el (gnus-article-compface-xbm): Ignore errors.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a6ac1f..b6068d8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-13 10:52:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-ems.el (gnus-article-compface-xbm): Ignore errors.
+
 2000-10-11  John Wiegley  <johnw@gnu.org>
 
        * gnus-topic.el (gnus-topic-mode): Use `setq' to clear

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index ef9442e..6991610 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -206,7 +206,10 @@
   "Length of the ring used for `gnus-article-xface-ring-internal'.")
 
 (defvar gnus-article-compface-xbm
-  (eq 0 (string-match "#define" (shell-command-to-string "uncompface -X")))
+  (condition-case ()
+      (eq 0 (string-match "#define" 
+                         (shell-command-to-string "uncompface -X")))
+    (error nil))
   "Non-nil means the compface program supports the -X option.
 That produces XBM output.")