From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/25591
Path: main.gmane.org!not-for-mail
From: dsg@mitre.org (David S. Goldberg)
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Problem with posting-styles in 0.97
Date: 01 Oct 1999 08:51:22 -0400
Sender: owner-ding@hpc.uh.edu
Message-ID: <m1bogejutv9.fsf@blackbird.mitre.org>
References: <3147757837400758@birk150.studby.uio.no>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035162949 14795 80.91.224.250 (21 Oct 2002 01:15:49 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 01:15:49 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id IAA24760
	for <jason@mailhost.sclp.com>; Fri, 1 Oct 1999 08:53:19 -0400 (EDT)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id HAB15668;
	Fri, 1 Oct 1999 07:52:50 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 01 Oct 1999 07:53:33 -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 HAA17691
	for <ding@hpc.uh.edu>; Fri, 1 Oct 1999 07:53:22 -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 IAA24739
	for <ding@gnus.org>; Fri, 1 Oct 1999 08:51:23 -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 IAA16858
	for <ding@gnus.org>; Fri, 1 Oct 1999 08:51:22 -0400 (EDT)
Original-Received: (from dsg@localhost)
	by blackbird.mitre.org (8.8.7/8.8.7) id IAA20037;
	Fri, 1 Oct 1999 08:51:22 -0400 (EDT)
Mail-Copies-To: never
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: Thomas Skogestad's message of "01 Oct 1999 11:10:37 +0200"
Original-Lines: 23
User-Agent: Gnus/5.070097 (Pterodactyl Gnus v0.97) XEmacs/20.4 (Emerald)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:25591
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:25591

I use posting styles in a fairly complex manner, but I still could not
figure out how to use it to get mail-copies-to set only when I wanted
it.  I came up with the following in message-header-setup-hook that
dwiw.

(defun my-message-header-setup-hook ()
  (let ((group (or gnus-newsgroup-name "")))
    (when (or (message-news-p)
	      (and (message-mail-p)
		   (string-match "wide reply" (buffer-name))
		   (or (message-fetch-field "newsgroups")
		       (gnus-group-find-parameter group 'to-address)))
	      (and (message-mail-p)
		   (string-match "mail to" (buffer-name))
		   (gnus-group-find-parameter group 'to-list)))
      (message-add-header "Mail-Copies-To: never"))))
          
(add-hook 'message-header-setup-hook 'my-message-header-setup-hook)
-- 
Dave Goldberg
Post: The Mitre Corporation\MS B325\202 Burlington Rd.\Bedford, MA 01730
Phone: 781-271-3887
Email: dsg@mitre.org