mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

* gnus-art.el (gnus-article-x-face-command): Use

Browse Source 
gnus-article-compface-xbm if bound.
This commit is contained in:
ShengHuo ZHU 2002-09-21 19:57:11 +00:00
parent 282f783156
commit 3cc82ee498
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -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

6
lisp/gnus/gnus-art.el
View File

@ -207,8 +207,10 @@ regexp. If it matches, the text in question is not a signature."
(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 -"))