(gnus-article-display-xface)

[gnus-article-compface-xbm]: Fix.

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 36bf70b..365154c 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -233,7 +233,8 @@ for XEmacs."
                              'delete '(t nil) nil
                              (if gnus-article-compface-xbm
                                  '("-X"))))
-                (unless gnus-article-compface-xbm
+                (if gnus-article-compface-xbm
+                    t
                   (goto-char (point-min))
                   (progn (insert "/* Width=48, Height=48 */\n") t)
                   (eq 0 (call-process-region (point-min) (point-max)
@@ -243,11 +244,19 @@ for XEmacs."
                 ;; light on dark.
                 (if (eq 'dark (cdr-safe (assq 'background-mode
                                               (frame-parameters))))
-                    (setq image (create-image (buffer-string) 'pbm t
+                    (setq image (create-image (buffer-string)
+                                              (if gnus-article-compface-xbm
+                                                  'xbm
+                                                'pbm)
+                                              t
                                               :ascent 'center
                                               :foreground "black"
                                               :background "white"))
-                  (setq image (create-image (buffer-string) 'pbm t
+                  (setq image (create-image (buffer-string)
+                                            (if gnus-article-compface-xbm
+                                                'xbm
+                                              'pbm)
+                                            t
                                             :ascent 'center)))))
          (ring-insert gnus-article-xface-ring-internal (cons data image)))
        (when image