Mercurial > emacs
changeset 31767:bdb5ce245f0e
(gnus-article-display-xface): Don't convert PBM
to XBM; we always have PBM support.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 20 Sep 2000 13:20:32 +0000 |
| parents | 507f4226440c |
| children | 5f91cf9127a6 |
| files | lisp/gnus/gnus-ems.el |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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