Mercurial > emacs
comparison lisp/gnus/gnus-art.el @ 47540:b825bae4a1ad
* gnus-art.el (gnus-article-x-face-command): Don't use
gnus-article-compface-xbm.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Wed, 18 Sep 2002 17:55:26 +0000 |
| parents | 3b7e1c7a2739 |
| children | 451b8289e283 |
comparison
equal
deleted
inserted
replaced
| 47539:663c306c80c6 | 47540:b825bae4a1ad |
|---|---|
| 205 ;; gnus-xmas.el overrides this for XEmacs. | 205 ;; gnus-xmas.el overrides this for XEmacs. |
| 206 (defcustom gnus-article-x-face-command | 206 (defcustom gnus-article-x-face-command |
| 207 (if (and (fboundp 'image-type-available-p) | 207 (if (and (fboundp 'image-type-available-p) |
| 208 (image-type-available-p 'xbm)) | 208 (image-type-available-p 'xbm)) |
| 209 'gnus-article-display-xface | 209 'gnus-article-display-xface |
| 210 (if gnus-article-compface-xbm | 210 (if (eq 0 (string-match "#define" |
| 211 (shell-command-to-string "uncompface -X"))) | |
| 211 "{ echo '/* Width=48, Height=48 */'; uncompface; } | display -" | 212 "{ echo '/* Width=48, Height=48 */'; uncompface; } | display -" |
| 212 "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | \ | 213 "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | \ |
| 213 display -")) | 214 display -")) |
| 214 "*String or function to be executed to display an X-Face header. | 215 "*String or function to be executed to display an X-Face header. |
| 215 If it is a string, the command will be executed in a sub-shell | 216 If it is a string, the command will be executed in a sub-shell |