Mercurial > emacs
changeset 47569:451b8289e283
* gnus-art.el (gnus-article-x-face-command): Use
gnus-article-compface-xbm if bound.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Sat, 21 Sep 2002 19:57:11 +0000 |
| parents | 731d8ffd0589 |
| children | b65cc673fb00 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-art.el |
| diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sat Sep 21 18:37:16 2002 +0000 +++ b/lisp/gnus/ChangeLog Sat Sep 21 19:57:11 2002 +0000 @@ -1,3 +1,8 @@ +2002-09-21 Rob Browning <rlb@defaultvalue.org> + + * gnus-art.el (gnus-article-x-face-command): Use + gnus-article-compface-xbm if bound. + 2002-09-18 Rob Browning <rlb@defaultvalue.org> * gnus-art.el (gnus-article-x-face-command): Don't use
--- a/lisp/gnus/gnus-art.el Sat Sep 21 18:37:16 2002 +0000 +++ b/lisp/gnus/gnus-art.el Sat Sep 21 19:57:11 2002 +0000 @@ -207,8 +207,10 @@ (if (and (fboundp 'image-type-available-p) (image-type-available-p 'xbm)) 'gnus-article-display-xface - (if (eq 0 (string-match "#define" - (shell-command-to-string "uncompface -X"))) + (if (or (and (boundp 'gnus-article-compface-xbm) + gnus-article-compface-xbm) + (eq 0 (string-match "#define" + (shell-command-to-string "uncompface -X")))) "{ echo '/* Width=48, Height=48 */'; uncompface; } | display -" "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | \ display -"))