From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/55866
Path: main.gmane.org!not-for-mail
From: =?iso-8859-1?q?David_K=E5gedal?= <davidk@lysator.liu.se>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: How to hide Face header when creating message.
Date: Fri, 09 Jan 2004 08:36:18 +0100
Sender: ding-owner@lists.math.uh.edu
Message-ID: <871xq9y3nx.fsf@bix.grotte>
References: <874qv6rnxe.fsf@atia.com>
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: sea.gmane.org 1073633840 2474 80.91.224.253 (9 Jan 2004 07:37:20 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Fri, 9 Jan 2004 07:37:20 +0000 (UTC)
Original-X-From: ding-owner+M4406@lists.math.uh.edu Fri Jan 09 08:37:17 2004
Return-path: <ding-owner+M4406@lists.math.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1AerCn-0003n3-00
	for <ding-account@gmane.org>; Fri, 09 Jan 2004 08:37:17 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu)
	by malifon.math.uh.edu with smtp (Exim 3.20 #1)
	id 1AerBz-0001er-00; Fri, 09 Jan 2004 01:36:27 -0600
Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix)
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 1AerBu-0001em-00
	for ding@lists.math.uh.edu; Fri, 09 Jan 2004 01:36:22 -0600
Original-Received: from mxfep02.bredband.com (mxfep02.bredband.com [195.54.107.73])
	by justine.libertine.org (Postfix) with ESMTP id C74A13A004C
	for <ding@gnus.org>; Fri,  9 Jan 2004 01:36:20 -0600 (CST)
Original-Received: from bix.zoo.kagedal.org ([213.113.219.82] [213.113.219.82])
          by mxfep02.bredband.com with ESMTP
          id <20040109073619.YIBY21918.mxfep02.bredband.com@bix.zoo.kagedal.org>;
          Fri, 9 Jan 2004 08:36:19 +0100
Original-Received: by bix.zoo.kagedal.org (Postfix, from userid 1000)
	id: 36:19 +0100 (CET)
Original-To: ding@gnus.org
In-Reply-To: <874qv6rnxe.fsf@atia.com> (Nedko Arnaudov's message of "Fri, 09
 Jan: 00:29 +0200")
User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3 (gnu/linux)
Precedence: bulk
Xref: main.gmane.org gmane.emacs.gnus.general:55866
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:55866

Nedko Arnaudov <nedko.arnaudov@atia.com> writes:

> Hi,
> I've finally created color face image intended to appear in other
> people gnus-article-x-face-too-ugly variable :)
> I'm using posting styles to set it:
>
> (setq gnus-posting-styles
>       '((".*"
>          ("Face" (gnus-convert-png-to-face (expand-file-name "face.png"
>          (expand-file-name ".xemacs" "~")))))))
>
> But now when I create new messages, I have nearly half of my screen
> filled with Face header data (encoded). Is there any method to avoid
> this ?

With this code, I can add a simple "Face: <filename>" line and have
the filename expanded to a real image just before sending it.  It's
been a while since I last tried it, though.

(defun dk-expand-face ()
  (save-restriction
    (message-narrow-to-headers)
    (goto-char (point-min))
    (when (re-search-forward "^[fF]ace: *\\(.*\\)" nil t)
      (let ((file-name (match-string 1)))
        (if (file-exists-p file-name)
            (replace-match (save-match-data
                             (gnus-face-from-file file-name))
                           t t nil 1)
          (message-remove-header "Face"))))))

(add-hook 'message-send-hook 'dk-expand-face)

--=20
David K=E5gedal