# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 969456032 0
# Node ID bdb5ce245f0e3cdb2c20790c464f6e5f507a6921
# Parent  507f4226440c1162342e4b387157c86591c2dece
(gnus-article-display-xface): Don't convert PBM
to XBM; we always have PBM support.

diff -r 507f4226440c -r bdb5ce245f0e lisp/gnus/gnus-ems.el
--- a/lisp/gnus/gnus-ems.el	Wed Sep 20 12:59:41 2000 +0000
+++ b/lisp/gnus/gnus-ems.el	Wed Sep 20 13:20:32 2000 +0000
@@ -208,7 +208,7 @@
 (defun gnus-article-display-xface (beg end)
   "Display an XFace header from between BEG and END in the current article.
 Requires support for images in your Emacs and the external programs
-`uncompface', `icontopbm' and `ppmtoxbm'.  On a GNU/Linux system these
+`uncompface', and `icontopbm'.  On a GNU/Linux system these
 might be in packages with names like `compface' or `faces-xface' and
 `netpbm' or `libgr-progs', for instance.
 
@@ -239,18 +239,15 @@
 		   (eq 0 (call-process-region (point-min) (point-max)
 					      "icontopbm"
 					      'delete '(t nil)))
-		   (eq 0 (call-process-region (point-min) (point-max)
-					      "pbmtoxbm"
-					      'delete '(t nil)))
 		   ;; Miles Bader says that faces don't look right as
 		   ;; light on dark.
 		   (if (eq 'dark (cdr-safe (assq 'background-mode
 						 (frame-parameters))))
-		       (setq image (create-image (buffer-string) 'xbm t
+		       (setq image (create-image (buffer-string) 'pbm t
 						 :ascent 'center
 						 :foreground "black"
 						 :background "white"))
-		     (setq image (create-image (buffer-string) 'xbm t
+		     (setq image (create-image (buffer-string) 'pbm t
 					       :ascent 'center))))))
 	  (ring-insert gnus-article-xface-ring-internal (cons data image))))
       (when image