From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/22743
Path: main.gmane.org!not-for-mail
From: dsg@mitre.org (David S. Goldberg)
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Posting Styles: message-fetch-reply-field always returns nil
Date: 22 Apr 1999 11:22:14 -0400
Sender: owner-ding@hpc.uh.edu
Message-ID: <m1bogkg3ck9.fsf@blackbird.mitre.org>
References: <yc0lnfpvg42.fsf@ufleku.daimi.au.dk>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035160607 30918 80.91.224.250 (21 Oct 2002 00:36:47 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 00:36:47 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
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 LAA19456
	for <jason@mailhost.sclp.com>; Thu, 22 Apr 1999 11:24:03 -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 KAB28784;
	Thu, 22 Apr 1999 10:22:47 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 22 Apr 1999 10:23:19 -0500 (CDT)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id KAA05189 for <ding@hpc.uh.edu>; Thu, 22 Apr 1999 10:23:02 -0500 (CDT)
Original-Received: from linus.mitre.org (linus.mitre.org [129.83.10.1])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id LAA19418
	for <ding@gnus.org>; Thu, 22 Apr 1999 11:22:53 -0400 (EDT)
Original-Received: from blackbird.mitre.org (blackbird [129.83.65.14])
	by linus.mitre.org (8.8.7/8.8.7) with ESMTP id LAA07300
	for <ding@gnus.org>; Thu, 22 Apr 1999 11:22:15 -0400 (EDT)
Original-Received: (from dsg@localhost)
	by blackbird.mitre.org (8.8.7/8.8.7) id LAA18483;
	Thu, 22 Apr 1999 11:22:14 -0400 (EDT)
Original-To: The Gnus Mailing List <ding@gnus.org>
X-Face: GUaHTH@nS>[7,ME@-gYZ4#Wl{z"99k@[[Y8AcP0x1paqu.,z9,XSV1WI>{q3f6^e5(zrit
	<4fV&VHhmE`uidRqtmG27;si9&r;#KSF~E#$%W8w(xdp)H4tW=\2XOk~3=@oGqqpj;m4xf
	Ow;y26396&,34@9#~4;@*S;E0cq"LM9N(us4P%F(Nxis'Vvfm9?KufH;:Q$dMa-QWGLR&K
	d0`LJZE8xb*>^yN>b]_NcU:E=Zn\1=#/(OS2
In-Reply-To: nospam2159@daimi.au.dk's message of "18 Apr 1999 22:16:45 +0200"
Original-Lines: 52
User-Agent: Gnus/5.07008 (Pterodactyl Gnus v0.80) XEmacs/20.4 (Emerald)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:22743
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:22743

I have the following in my gnus-posting-styles.  This lets me do the
right thing (for my definition of right thing) for replies.

(gnus-article-reply
 (signature-file
  (let* ((net
          (save-excursion
            (set-buffer gnus-article-buffer)
            (car
             (cdr
              (mail-extract-address-components
	       (message-fetch-field
		"From"))))))
	 (rec (car (bbdb-search
		    (bbdb-records) nil nil
		    net nil nil)))
	 (sig (if rec
		  (bbdb-record-getprop
		   rec 'signature))))
    (cond (sig sig)
	  ((string-match "@.*\\.?mitre\\.org" net)
	   "~/.signature-mitre-i")
	  ((string-match "nnml:personal.*"
			 gnus-newsgroup-name)
	   "~/.signature-personal")
	  (t "~/.signature-mitre"))))
 ("From"
  (let* ((net
	  (save-excursion
	    (set-buffer gnus-article-buffer)
	    (car
	     (cdr
	      (mail-extract-address-components
	       (message-fetch-field
		"From"))))))
	 (rec (car (bbdb-search
		    (bbdb-records) nil nil
		    net nil nil)))
	 (mail-from (if rec
			(bbdb-record-getprop
			 rec 'mail-from))))
    (cond (mail-from mail-from)
	  ((string-match "nnml:personal.*"
			 gnus-newsgroup-name)
	   "dsg@world.std.com (David S. Goldberg)")
	  (t (concat user-mail-address
		     " (David S. Goldberg)"))))))
-- 
Dave Goldberg
Post: The Mitre Corporation\MS B325\202 Burlington Rd.\Bedford, MA 01730
Phone: 781-271-3887
Email: dsg@mitre.org