From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/23422 Path: main.gmane.org!not-for-mail From: Shaun Lipscombe Newsgroups: gmane.emacs.gnus.general Subject: Re: nnmail-pop-password, and nnheader-temp-write Date: 21 Jun 1999 15:53:07 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035161157 1893 80.91.224.250 (21 Oct 2002 00:45:57 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:45:57 +0000 (UTC) Return-Path: Original-Received: from farabi.math.uh.edu (farabi.math.uh.edu [129.7.128.57]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id KAA26467 for ; Mon, 21 Jun 1999 10:56:31 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by farabi.math.uh.edu (8.9.1/8.9.1) with ESMTP id JAB29330; Mon, 21 Jun 1999 09:55:24 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 21 Jun 1999 09:55:56 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id JAA22218 for ; Mon, 21 Jun 1999 09:55:47 -0500 (CDT) Original-Received: from mail.gasops.co.uk (ndu-1-32.inweb.co.uk [212.38.64.131]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id KAA26435 for ; Mon, 21 Jun 1999 10:54:46 -0400 (EDT) Original-To: ding@gnus.org X-Yow: I wish I was a sex-starved manicurist found dead in the Bronx!! X-Mayan-Date: Long count = 12.19.6.5.8; tzolkin = 12 Lamat; haab = 16 Zotz In-Reply-To: Kai.Grossjohann@CS.Uni-Dortmund.DE's message of "18 Jun 1999 12:51:58 +0200" X-Face: '|!UPdE>Ot'L}nt?6Tf|'s{y%l~,+Yc5|p8A}ibew|_!vc48pPNPPx@7QA~$`$g=|yH*8sh9R]Xj1(CV7oUe>#/,t.(Z4F Original-Lines: 28 X-Mailer: Gnus v5.6.45/Emacs 20.3 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:23422 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:23422 * "Kai" == Kai Grossjohann writes: Kai> Does this work? Kai> (defun my-message-header-hook () Kai> (save-excursion (goto-char (point-min)) Kai> (insert-file-contents "/tmp/foo"))) I added some stuff and got it working nicely: (defvar xfile (expand-file-name "~/.xface")) (defun insert-xfile () (save-excursion (goto-char (point-min)) (search-forward mail-header-separator) (beginning-of-line nil) (insert "X-Face: ") (insert-file xfile))) (add-hook 'message-send-hook 'insert-xfile) Thanks for your help Kai :)) Shaun -- (o_ (o_ (o_ //\ (/)_ (/)_ V_/_ shaun.lipscombe@gasops.co.uk