From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/10097
Path: main.gmane.org!not-for-mail
From: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: letting message-signature-file be a function
Date: 06 Mar 1997 04:52:58 +0100
Sender: larsi@proletcult.slip.ifi.uio.no
Message-ID: <m267z5he1x.fsf@proletcult.slip.ifi.uio.no>
References: <whu3mqdb1z.fsf@norne.metis.no>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: main.gmane.org 1035150023 22368 80.91.224.250 (20 Oct 2002 21:40:23 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:40:23 +0000 (UTC)
Return-Path: <ding-request@ifi.uio.no>
Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2])
	by deanna.miranova.com (8.8.5/8.8.5) with SMTP id VAA16515
	for <steve@miranova.com>; Wed, 5 Mar 1997 21:10:43 -0800
Original-Received: from proletcult.slip.ifi.uio.no (root@ppp19.larris.ifi.uio.no [129.240.68.119]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <FAA23027@ifi.uio.no> for <ding@ifi.uio.no> ; Thu, 6 Mar 1997 05:57:23 +0100
Original-Received: (from larsi@localhost) by proletcult.slip.ifi.uio.no (8.8.2/8.8.2) id EAA01619; Thu, 6 Mar 1997 04:53:00 +0100
Mail-Copies-To: never
Original-To: ding@ifi.uio.no
In-Reply-To: Steinar Bang's message of 05 Mar 1997 08:59:04 +0100
Original-Lines: 27
X-Mailer: Gnus v5.4.19/Emacs 19.34
X-Face: &w!^oO<W.WBH]FsTP:P0f9X6M-ygaADlA_)eF$<UwQzj7:C=Gi<a?/_4$LX^@$Qq7-O&XHp
 lDARi8e8iT<(A$LWAZD*xjk^')/wI5nG;1cNB>~dS|}-P0~ge{$c!h\<y
Xref: main.gmane.org gmane.emacs.gnus.general:10097
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:10097

Steinar Bang <sb@metis.no> writes:

> It would be nice if the content of message-signature-file could be a
> function that could evaluate to the signature file name.

I've now added this to the todo list.

> Right now I do this, by using message-signature, but then I have to
> have an additional function, like eg.
> 	(defun signature-get-body (sig-file-name)
> 	  "Return the contents of sig-file-name, as a string."
> 	  (save-excursion
> 	    (set-buffer (get-buffer-create "*mumblefrotz*"))
> 	    (insert-file-contents-literally sig-file-name)
> 	    (prog1
> 		(buffer-string)
> 	      (kill-buffer nil))))

You could say:

(defun sig-get-body (file)
  (nnheader-temp-write t
    (insert-file-contents-literally sig-file-name)))

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@ifi.uio.no * Lars Ingebrigtsen