-(defface gnus-x-face '((t (:foreground "black" :background "white")))
- "Face to show X face"
- :group 'gnus-xmas)
-
-(defun gnus-xmas-article-display-xface (data)
- "Display the XFace in DATA."
- (save-excursion
- (let ((xface-glyph
- (cond
- ((featurep 'xface)
- (make-glyph (vector 'xface :data
- (concat "X-Face: " data))))
- ((featurep 'xpm)
- (let ((cur (current-buffer)))
- (save-excursion
- (gnus-set-work-buffer)
- (insert data)
- (let ((coding-system-for-read 'binary)
- (coding-system-for-write 'binary))
- (gnus-xmas-call-region "uncompface")
- (goto-char (point-min))
- (insert "/* Width=48, Height=48 */\n")
- (gnus-xmas-call-region "icontopbm")
- (gnus-xmas-call-region "ppmtoxpm")
- (make-glyph
- (vector 'xpm :data (buffer-string)))))))
- (t
- (make-glyph [nothing])))))
- (set-glyph-face xface-glyph 'gnus-x-face)
-
- (gnus-article-goto-header "from")
- ;;(gnus-put-image xface-glyph " ")
- (let ((extent (make-extent (1- (point)) (point))))
- (set-extent-property extent 'gnus-image t)
- (set-extent-property extent 'duplicable t)
- (set-extent-property extent 'end-glyph xface-glyph))
- (gnus-add-wash-type 'xface)
- (gnus-add-image 'xface xface-glyph))))
-