From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/66
Path: news.gmane.org!not-for-mail
From: David Z Maze <dmaze@mit.edu>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: Lisp recipe to set From header
Date: Fri, 27 Jan 2006 17:39:45 -0500
Organization: Massachusetts Institute of Technology
Message-ID: <y68zmlhs3bi.fsf@contents-vnder-pressvre.mit.edu>
References: <878xt1xsle.fsf@knight.monnsta.net>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138484434 15028 80.91.229.2 (28 Jan 2006 21:40:34 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Sat, 28 Jan 2006 21:40:34 +0000 (UTC)
Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Sat Jan 28 22:40:31 2006
Return-path: <info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org>
Envelope-to: gegu-info-gnus-english@m.gmane.org
Original-Received: from lists.gnu.org ([199.232.76.165])
	by ciao.gmane.org with esmtp (Exim 4.43)
	id 1F2xnr-0005JJ-1g
	for gegu-info-gnus-english@m.gmane.org; Sat, 28 Jan 2006 22:40:15 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1F2xQo-0001ar-G5
	for gegu-info-gnus-english@m.gmane.org; Sat, 28 Jan 2006 16:16:26 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!bloom-beacon.mit.edu!senator-bedfellow.mit.edu!dreaderd!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAFVBMVEUGBgS83KhoOivUeFmC
	pXj4o39qeFZD1JPmAAACOklEQVR4nE2UQY/bIBCFkVPlbpX0bA2tz7sQcl5SlnsWc7cclv//
	E/oGjNNxokjz8eYxA7HwR9xLKQGRC4eQezqUj7KWnDOzAOB3EjaBKDl4KPARzkvpAIqoUTwI
	a2op6WVoeXHOlfgsnJPM1kl0SdMIFEJ0AaIJshiRhkCsHbC/51LycKDmgiw2jVJy9B9IDPNN
	U5NkSMQoR+c5/zTW3qjZgwg5ylpJ2YT4wubO7FEVEs0NhvPJaqzxDaDS2gUpGUjyDkau9NxB
	fKsmu4Ir2XSpwAjxYwfsfeqlbJwqcAwwcLINxGRWtIhhMEB7ZLoAJudd4aE42e4RCQDjYMXK
	CpS6XOBtNM7EVfPAbRgihfU08Sg9jqIr9G9JJuo70cCty66gwY6kzJ9xIygyJs7mDNQcSEUV
	iPSE1qt5mLgUkcGj8ExTbrvii2CwG3UCQkxUXDUPE03KIqPw8Iq33IBfUcbw/Ez9eeo8VvPr
	qrRNj2RU1DjeaN6cG8c6RKVNnTg+GIDWfAkPBVdK2jC84fCq4n4yik+VNICNtoPlPkScrKmh
	bPw+FIGSYmBrOUPeNfATjajPpFXtMl0Hvyt4imfzqDvC9zZ3cAEYvlt/ADq7rvDbNKj3RuxC
	B7gsZRWzbSAaymNXSPxjia8id1GmV6kUyjDMf9vd3daXAiYFd4GvXNzmaT7AspRyJnoif6Nn
	Ob8UC94fN6KybTSbvB0e46d3Tyzm+I7v4QWW5WGswZulXFNyv/4DGFvqYRv4BxSm28ZwQ4mv
	AAAAAElFTkSuQmCC
X-Face: &OO..E]'&$Q?jm[7H$]lCS"t#FD[|jK.HfvP#![KZ`/,
	O)lQ(pE<2QS1i~K3+u\{B<n'%(d
	d|ja|1t%=%_:].7%l)O; PM:\cxIW-R^|>h"(4h4G0W#R-F<w'W=/nTBJ;
	[JQ22WOTpdRFb(D5h(DDu
	Dbg|$2Q8PO#; {s\WB1m&p@k]+Av_E[o78|`D)9{riNWG##4N0b@/id>2zZNO6n\!8bk;
	tu%)f>y{C` P*^7yM`e/x"b1q[?^-9zxT<CwoP1xRL>p
User-Agent: Gnus/5.110004 (No Gnus v0.4) Emacs/21.4 (usg-unix-v)
Cancel-Lock: sha1:DPopnuVRa7Y05NbCWl/VbH1qEJ0=
Original-Lines: 33
Original-NNTP-Posting-Host: CONTENTS-VNDER-PRESSVRE.MIT.EDU
Original-X-Trace: 1138401585 senator-bedfellow.mit.edu 572 18.7.16.67
Original-Xref: shelby.stanford.edu gnu.emacs.gnus:76707
Original-To: info-gnus-english@gnu.org
X-BeenThere: info-gnus-english@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "Announcements and discussions for GNUS,
	the GNU Emacs Usenet newsreader \(in English\)"
	<info-gnus-english.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/info-gnus-english>,
	<mailto:info-gnus-english-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/info-gnus-english>
List-Post: <mailto:info-gnus-english@gnu.org>
List-Help: <mailto:info-gnus-english-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/info-gnus-english>,
	<mailto:info-gnus-english-request@gnu.org?subject=subscribe>
Original-Sender: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org
Errors-To: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.gnus.user:66
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/66>

Matthew King <matthew.king@monnsta.net> writes:

> I have the following:
>
> ;;; Set From header based on To header
> (setq gnus-posting-styles
>       '(("nn.+:"
> 	 (From (save-excursion
> 		 (set-buffer gnus-article-buffer)
> 		 (message-fetch-field "to"))))))
>
> What I really want to do is only set the From address to be one from a
> pre-set list and to fall back on user-mail-address if there is no
> match.

;; Totally untested:
(defvar mk-to-header-list
  '("matthew.king@monnsta.net")
  "Names it's valid to take from the To: header of messages.")

(defun mk-to-header-or-default ()
  "Returns the To: header of `gnus-article-buffer' if it's in
  `mk-to-header-list', or `user-mail-address' otherwise."
  (let ((to-header (save-excursion
                     (set-buffer gnus-article-buffer)
                     (message-fetch-field "to"))))
    (if (member to-header mk-to-header-list)
      to-header
      gnus-article-buffer)))

(setq gnus-posting-styles '(("nn.+:" (From (mk-to-header-or-default)))))

  --dzm