X-Face support in XEmacs

[Pekka Marjola <marjola@bilbo.ntc.nokia.com>]

[-- Attachment #1: Type: text/plain, Size: 213 bytes --]


Since XEmacs can show X-Face without external processes, shouldn't
something like this be included in gnus-xmas.el? (Coincidentally, I was
planning to rip exactly same code from VM, but never bothered :)

# pema

[-- Attachment #2: gnus-xemacs-x-face.el --]
[-- Type: application/octet-stream, Size: 1159 bytes --]

;; X-Face inline for XEmacs
;; Based on the VM (thanks Kyle) code.
;; glenn@mathcs.emory.edu  1/16/96
(defvar gnus-xface-cache (make-vector 29 0))
(defun gnus-article-x-face-xemacs-inline (beg end)
  "Display X-Face header inline for XEmacs."
	    (let (xf e gl)
	      (make-face 'gnus-xface)
	      (set-face-background 'gnus-xface "white")
	      (set-face-foreground 'gnus-xface "black")

	      (setq xf (concat "X-Face: "
			       (buffer-substring beg end)))
	      (setq gl (intern xf gnus-xface-cache))
	      (if (boundp gl)
		  (setq gl (symbol-value gl))
		(set gl (make-glyph xf))
		(setq gl (symbol-value gl))
		(set-glyph-face gl 'gnus-xface))
	      (goto-char (point-min))
	      (re-search-forward "^From: " nil t)
	      ;; We display the face.
	      (setq e (make-extent (point) (point)))
	      (set-extent-property e 'gnus-xface t)
	      (set-extent-begin-glyph e gl)))

(setq gnus-article-x-face-command 'gnus-article-x-face-xemacs-inline)
;; This hook needs to go after gnus-article-highlight and/or
;; gnus-article-hide-headers-if-wanted (unsure exactly which).
(add-hook 'gnus-article-display-hook 'gnus-article-display-x-face t)