(gnus-treat-display-x-face): Protect against errors (bug#5299).

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index de564bb8c800d70e083aef58e9d8bc89f90b05ab..7ab323d74d475744e0d80190bd227cdd55cc213b 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2010-02-24  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * gnus-art.el (gnus-treat-display-x-face): Don't burp if
+       shell-command-to-string signals an error (bug#5299).
+
 2010-02-24  Glenn Morris  <rgm@gnu.org>
 
        * message.el (message-smtpmail-send-it)

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index d01b9f3eb0871102b600d245a30cf663da1f6406..1a66404f841037e0d09c00b29c2795a8b14a5596 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -1422,8 +1422,12 @@ predicate.  See Info node `(gnus)Customizing Articles'."
        (gnus-image-type-available-p 'xbm)
        (if (featurep 'xemacs)
           (featurep 'xface)
-        (and (string-match "^0x" (shell-command-to-string "uncompface"))
-             (executable-find "icontopbm")))
+        (condition-case nil
+             (and (string-match "^0x" (shell-command-to-string "uncompface"))
+                  (executable-find "icontopbm"))
+           ;; shell-command-to-string may signal an error, e.g. if
+           ;; shell-file-name is not found.
+           (error nil)))
        'head)
   "Display X-Face headers.
 Valid values are nil and `head'.