From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/64029 Path: news.gmane.org!not-for-mail From: Leo Newsgroups: gmane.emacs.gnus.general Subject: Re: Message mode Face and X-Face preview Date: Mon, 27 Nov 2006 02:35:10 +0000 Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1164594996 20699 80.91.229.2 (27 Nov 2006 02:36:36 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 27 Nov 2006 02:36:36 +0000 (UTC) Original-X-From: ding-owner+M12552@lists.math.uh.edu Mon Nov 27 03:36:33 2006 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by ciao.gmane.org with esmtp (Exim 4.43) id 1GoWM7-0005ym-Lu for ding-account@gmane.org; Mon, 27 Nov 2006 03:36:28 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1GoWLV-0000nO-Hq; Sun, 26 Nov 2006 20:35:49 -0600 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1GoWLS-0000mt-Bb for ding@lists.math.uh.edu; Sun, 26 Nov 2006 20:35:46 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.63) (envelope-from ) id 1GoWLM-0004hv-4U for ding@lists.math.uh.edu; Sun, 26 Nov 2006 20:35:45 -0600 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1GoWLK-00079o-00 for ; Mon, 27 Nov 2006 03:35:38 +0100 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1GoWLC-0005lB-7X for ding@gnus.org; Mon, 27 Nov 2006 03:35:30 +0100 Original-Received: from sl392.st-edmunds.cam.ac.uk ([131.111.223.202]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 27 Nov 2006 03:35:30 +0100 Original-Received: from sdl.web by sl392.st-edmunds.cam.ac.uk with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 27 Nov 2006 03:35:30 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-To: ding@gnus.org Original-Lines: 40 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: sl392.st-edmunds.cam.ac.uk Face: iVBORw0KGgoAAAANSUhEUgAAACgAAAAoBAMAAAB+0KVeAAAAGFBMVEUKDAg1NjRWV1V9fnyg op/DxcLk5uP8/voi63ReAAAACXBIWXMAAAWJAAAFiQFtaJ36AAAAB3RJTUUH1goZAgAz00bgXgAA AeVJREFUKM9lk0Fz2jAQhQXJD3CCO70CmcC1YMtcWyTZ14Bl69xats4N9r6/3zWQBlodNKNPu/s0 b1cCQFuZGpfVVh3vAvBJolIXRkapSuoRUtIdFyo1Y5xSdlAj7OtvD1XnXxmWRi+eWgcxyCed1lVV B1CrKyujMoi+eLA5kU1SsjoHlW+nQjTtFxk4MXgrOxvIqzoTZR8XgPaLl419zgsMaSGFPiUOZCIh thsx5Xy9NsK8Kwf/JoQgMxcVJ301HKkcSWaT0O7FY056J4U9xcYfnmVXG4801lW6lqwu2nKFZoHC HuzvaTVndZ+LaRQgZdthXw1cpynEkLEwyFHXk/aIxNQ6QeooJuzPMB+wn+D7JJNsiCcVA13/A3h/ xE9J+WidpAwoYNmRFwyvSRhNVtsdaAewzZZP5uw82QL9+tyNfocyP0McAzICUr5Mk9RdIjWasUNx aIIt6NK4ZtXIMdfMQt3nuMAyWbLI4DqZ4xPq/ag8jPond4XU/cLuOgw6XCFX/YCUfcDAMMH58fD4 G9kDchwfqVefkBwup2uZM+Q4WhJt5jN3AxXCsaS2yXEDuWgS8VOzW0gFjhEPmLyFMKBFaLb1HRwc DiaKwx0EeTMRYnYPQRW3PP4HApvlMv0PttX5v/D6Aws3IOSEwzmLAAAAAElFTkSuQmCC User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/23.0.0 (gnu/linux) Cancel-Lock: sha1:1ky6OzNQCrv8mhAUriBE4M73J/k= X-Spam-Score: -2.6 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:64029 Archived-At: On Monday, 27 Nov 2006, Leo wrote: > (defun sdl-message-display-face () > "Display any Face headers in the header." > (interactive) > (let (face png image) > (save-restriction > (mail-narrow-to-head) > (setq face (mail-fetch-field "Face"))) > (when face > (when (setq png (gnus-convert-face-to-png face)) > (setq image (gnus-create-image png 'png t)) > (message-goto-from) > (message-beginning-of-line) (backward-char) > (gnus-add-image 'face image) > (gnus-put-image image nil 'face))))) Improved version: (defun sdl-message-display-face () "Display any Face headers in the header." (interactive) (save-excursion (let (faces) (save-restriction (mail-narrow-to-head) (while (re-search-forward "^Face:" nil t) (push (mail-header-field-value) faces))) (message-goto-from) (backward-char) (let ((from (point)) png image) (while faces (when (setq png (gnus-convert-face-to-png (pop faces))) (setq image (gnus-create-image png 'png t)) (goto-char from) (gnus-add-image 'face image) (gnus-put-image image nil 'face))))))) -- Leo