From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/1238
Path: news.gmane.org!not-for-mail
From: delirious daniel <ahsdreamwalker@rogers.com>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: another E-Mail Address
Date: Sun, 29 Sep 2002 05:45:13 GMT
Message-ID: <it0pbb6w.fsf@rogers.com>
References: <m23crwrizp.fsf@localhost.localdomain> <87u1kdrmze.fsf@ID-56226.news.dfncis.de>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138668011 10348 80.91.229.2 (31 Jan 2006 00:40:11 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 00:40:11 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:28:51 2006
Original-Path: quimby.gnus.org!lackawana.kippona.com!news.stealth.net!news.stealth.net!prodigy.com!rip!newsfeeds-atl2!news.webusenet.com!news03.bloor.is.net.cable.rogers.com!news04.bloor.is.net.cable.rogers.com.POSTED!not-for-mail
Original-Sender: glens@STATION1
Original-Newsgroups: gnu.emacs.gnus
User-Agent: Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.4 (Informed Management (Windows [3]))
Original-NNTP-Posting-Host: 24.101.193.225
Original-X-Complaints-To: abuse@rogers.com
Original-X-Trace: news04.bloor.is.net.cable.rogers.com 1033278313 24.101.193.225 (Sun, 29 Sep 2002 01:45:13 EDT)
Original-NNTP-Posting-Date: Sun, 29 Sep 2002 01:45:13 EDT
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:1378
Original-Lines: 33
X-Gnus-Article-Number: 1378   Tue Jan 17 17:28:51 2006
Xref: news.gmane.org gmane.emacs.gnus.user:1238
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/1238>

Micha Wiedenmann <mw-u1@gmx.de> writes:

> * Wu XiaoGuang <woohsiaokuang@yahoo.com.cn> writes:
> | 	;; if this message is a reply to a message try to distinguish
> | 	;; private and public messages.
> | 	((message-mail-p)
> | 	 (address 
> | 	  (save-excursion
> | 	    (if (buffer-live-p gnus-article-buffer)
> | 	      (progn
> | 		(set-buffer gnus-article-buffer)
> | 		(let ((to (message-fetch-field "To")))
> | 		  (cond
> | 		   ((string-match "EMAIL\\.PRIVATE@foo\\.net" to)
> | 		    "EMAIL.PRIVATE@foo.net")
> | 		   ((string-match (regexp-opt 
> | 				   '("EMAIL2@foo.net"
> | 				     "EMAIL1@foo.net"))
> | 				  to)
> | 		    "EMAIL1@foo.net"))))
> | 	      "EMAIL.PRIVATE@foo.net"))))
Wouldn't:
("nnml:.*"
         (From (save-excursion
                 (set-buffer gnus-article-buffer)
                 (message-fetch-field "to")))
Do the same thing?
-- 
Daniel 'Delirious' Sauve 
http://www.livejournal.com/users/deleriousraven/
http://www.topica.com/lists/thedobd/
Prophet Marcus Says:
98: The mind is like a pinball machine.