From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/5703
Path: main.gmane.org!not-for-mail
From: Pekka Marjola <marjola@bilbo.ntc.nokia.com>
Newsgroups: gmane.emacs.gnus.general
Subject: X-Face support in XEmacs
Date: 25 Mar 1996 18:05:42 +0200
Organization: Nokia Telecommunications
Sender: marjola@bilbo.ntc.nokia.com
Message-ID: <of0u3zdqht5.fsf@pippin.ntc.nokia.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0 (generated by tm-edit 7.48)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Mar_25_18:05:43_1996-1"
Content-Transfer-Encoding: 7bit
X-Trace: main.gmane.org 1035146269 1103 80.91.224.250 (20 Oct 2002 20:37:49 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:37:49 +0000 (UTC)
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.3/8.6.9) with SMTP id JAA14789 for <steve@miranova.com>; Mon, 25 Mar 1996 09:08:26 -0800
Original-Received: from axl01it.ntc.nokia.com (axl01it.ntc.nokia.com [131.228.118.232]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <RAA09098@ifi.uio.no> for <ding@ifi.uio.no> ; Mon, 25 Mar 1996 17:06:17 +0100
Original-Received: from bilbo.ntc.nokia.com (bilbo.ntc.nokia.com [131.228.58.230]) by axl01it.ntc.nokia.com (8.6.9/8.6.9) with ESMTP id SAA08910 for <ding@ifi.uio.no>; Mon, 25 Mar 1996 18:04:12 +0200
Original-Received: from pippin.ntc.nokia.com (pippin.ntc.nokia.com [131.228.178.85])
 by bilbo.ntc.nokia.com (8.6.12/8.6.6+Goodi/1.2.kim) with ESMTP
 id SAA01952; Mon, 25 Mar 1996 18:05:45 +0200
 (for <ding@ifi.uio.no>)
Original-Received: (from marjola@localhost) by pippin.ntc.nokia.com (8.7.1/8.7.1/+Goodi) id SAA05122; Mon, 25 Mar 1996 18:05:44 +0200 (EET)
Original-To: ding@ifi.uio.no
X-Face: 8>EVnZ'MSz2dI{N`dzbBND,clpk$+(a>y[d"rnI,}HfS4x!)hp+1H&ha6Rj93tVlirvJ;Z@@MSpFN[;;X)aF\mDDlk6N&0t*B^C\]|<z,S8:j26ZbN:WmvgP-DV?l|'C<(|DacsbwYal'dmuMifMOXszyo]J:k{BSASbF-R
X-Attribution: PeMa
Original-Lines: 39
Xref: main.gmane.org gmane.emacs.gnus.general:5703
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:5703

--Multipart_Mon_Mar_25_18:05:43_1996-1
Content-Type: text/plain; charset=US-ASCII


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

--Multipart_Mon_Mar_25_18:05:43_1996-1
Content-Type: application/octet-stream; type=emacs-lisp
Content-Disposition: attachment; filename="gnus-xemacs-x-face.el"
Content-Transfer-Encoding: 7bit

;; 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)

--Multipart_Mon_Mar_25_18:05:43_1996-1--