From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/64030 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 23:14:04 +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 1164669300 30885 80.91.229.2 (27 Nov 2006 23:15:00 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 27 Nov 2006 23:15:00 +0000 (UTC) Original-X-From: ding-owner+M12553=ding+2Daccount=gmane.org@lists.math.uh.edu Tue Nov 28 00:14:58 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 1GopgW-0003kV-T7 for ding-account@gmane.org; Tue, 28 Nov 2006 00:14:49 +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 1GopgW-0006sc-38 for ding-account@gmane.org; Mon, 27 Nov 2006 17:14:48 -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 1GopgV-0006sX-5R for ding@lists.math.uh.edu; Mon, 27 Nov 2006 17:14:47 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.63) (envelope-from ) id 1GopgP-0004UW-Dz for ding@lists.math.uh.edu; Mon, 27 Nov 2006 17:14:47 -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 1GopgJ-0000Vj-00 for ; Tue, 28 Nov 2006 00:14:35 +0100 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1GopgD-0003gV-F9 for ding@gnus.org; Tue, 28 Nov 2006 00:14:29 +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 ; Tue, 28 Nov 2006 00:14:29 +0100 Original-Received: from sdl.web by sl392.st-edmunds.cam.ac.uk with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 28 Nov 2006 00:14:29 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-To: ding@gnus.org Original-Lines: 46 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: sl392.st-edmunds.cam.ac.uk Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAElBMVEUAAAAAAP+LRRP0pGC+ vr7///+7mT1iAAAAAWJLR0QAiAUdSAAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9YLFgIJ HbtRbz4AAAF6SURBVDjLdZRNjoMwDIXfkHo/qBdAOUGkaPYswt6L5v5XGT8nhUCLqwrkDz//QVBv DB8evQM13YGcbkDNsgP5JA70750Yu5jfhe5VpPaghcCv7g4JOScZQKBSyDmD/wtQgpRbCBpwJT7c TOyh5CCkFgBXCxBkB+rFuQaaBSZqgAFJrAtFwzugiHen6qV3KQnZ8vXptBYdWP2WT6W+yrquhZEO Qk5ggAmUUjaTaVKtBZiGvAwUlfeiWD9ELUQYs2HfILxTlXmusJADUNLAz3PWxwn4wKTK/KuXCLuA 9dF9BhwCi/G6VtmB2lZtFq2RAVRxwKYuwEqq0oZEcgB9qNA6WAdQPXsnI9jg87T7V1GMQN0EkA2L nIAwzxSBKQ6gmJI4iJhwvO2wLRhSTEtc4gnQy1+EgaNBalmDPeQCuEAw9Qioxd2af/HXbQCFo7QB xLgMQ6TWxt4JcPqcYdt2ra60A65145QAOR8AMAJ8O0tMDPL1kMHo/3pkuP0DM/wQbO9GIqoAAAAA SUVORK5CYII= User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/23.0.0 (gnu/linux) Cancel-Lock: sha1:qFJU6TlvhWbFZSwZgtWQcy8y4Uk= X-Spam-Score: -2.6 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:64030 Archived-At: On Monday, 27 Nov 2006, Leo wrote: > 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))))) > [...] It should be: (defun sdl-message-display-face () "Display any Face headers in the header." (interactive) (save-excursion (let (faces from) (save-restriction (mail-narrow-to-head) (while (re-search-forward "^Face:" nil t) (push (mail-header-field-value) faces))) (goto-char (point-min)) (setq from (re-search-forward "^From:" nil t)) (when (and from faces) (let (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