;; non-graphical frames in a session.
((and (fboundp 'image-type-available-p)
(image-type-available-p 'xbm))
- 'gnus-article-display-xface)
+ (if (module-installed-p 'x-face-e21)
+ 'x-face-decode-message-header
+ 'gnus-article-display-xface))
((and (not gnus-xemacs)
window-system
(module-installed-p 'x-face-mule))
If it is a string, the command will be executed in a sub-shell
asynchronously. The compressed face will be piped to this command."
:type '(choice string
+ (function-item
+ :tag "x-face-decode-message-header (x-face-e21)"
+ x-face-decode-message-header)
(function-item gnus-article-display-xface)
(function-item x-face-mule-gnus-article-display-x-face)
function)
(put 'gnus-treat-overstrike 'highlight t)
(defcustom gnus-treat-display-xface
- (if (or (and gnus-xemacs (featurep 'xface))
+ (if (or (and (fboundp 'image-type-available-p)
+ (image-type-available-p 'xbm)
+ (string-match "^0x" (shell-command-to-string "uncompface")))
+ (and gnus-xemacs (featurep 'xface))
(eq 'x-face-mule-gnus-article-display-x-face
gnus-article-x-face-command))
'head