From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/10985
Path: main.gmane.org!not-for-mail
From: Steven L Baur <steve@xemacs.org>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: X-No-Archive
Date: 18 May 1997 13:44:10 -0700
Message-ID: <m2wwow8q91.fsf@altair.xemacs.org>
References: <m3raf4ybdh.fsf@zaphod.enst.fr> <m2afls7ieb.fsf@altair.xemacs.org> <m3iv0gfxkc.fsf@zaphod.enst.fr>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
X-Trace: main.gmane.org 1035150771 27612 80.91.224.250 (20 Oct 2002 21:52:51 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:52:51 +0000 (UTC)
Return-Path: <ding-request@ifi.uio.no>
Original-Received: from sandy.calag.com (root@sandy [206.190.83.128])
	by altair.xemacs.org (8.8.5/8.8.5) with ESMTP id OAA13148
	for <steve@altair.xemacs.org>; Sun, 18 May 1997 14:38:37 -0700
Original-Received: from deanna.miranova.com (root@deanna [206.190.83.1])
	by sandy.calag.com (8.8.5/8.8.5) with ESMTP id OAA30115
	for <steve@calag.com>; Sun, 18 May 1997 14:38:11 -0700
Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16])
	by deanna.miranova.com (8.8.5/8.8.5) with ESMTP id OAA13074
	for <steve@calag.com>; Sun, 18 May 1997 14:38:15 -0700
Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2])
	by xemacs.org (8.8.5/8.8.5) with SMTP id QAA11512
	for <steve@xemacs.org>; Sun, 18 May 1997 16:37:11 -0500 (CDT)
Original-Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <WAA02691@ifi.uio.no> for <ding@ifi.uio.no> ; Sun, 18 May 1997 22:43:14 +0200
Original-Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id NAA12830;
	Sun, 18 May 1997 13:44:10 -0700
Mail-Copies-To: never
Original-To: ding@ifi.uio.no
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
In-Reply-To: Samuel Tardieu's message of 18 May 1997 20:24:18 +0200
X-Mailer: Gnus v5.4.53/XEmacs 20.2
Original-Lines: 31
Original-Xref: altair.xemacs.org dgnus-list:1368
Xref: main.gmane.org gmane.emacs.gnus.general:10985
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:10985

Samuel Tardieu <sam@inf.enst.fr> writes:
 ...
> All your suggestions are nice (as always :-) but do not achieve my
> goals: I want to *selectively* add "X-No-Archive: yes", article per
> article.

There is a very rich set of functions in message mode for doing stuff
like this.  Here are two short samples.  Bind to whatever key you can
spare.

(defun st-add-x-no-archive ()
  (interactive)
  (save-excursion
   (message-add-header "X-No-Archive: yes")))

(defun st-toggle-x-no-archive ()
  (interactive)
  (save-excursion
   (let ((val (message-fetch-field "x-no-archive")))
     (cond ((string= val "yes")
            (message-remove-header "x-no-archive")
            (message-add-header "X-No-Archive: no"))
           ((string= val "no")
            (message-remove-header "x-no-archive")
            (message-add-header "X-No-Archive: yes"))
           (t
	    (message-add-header "X-No-Archive: yes"))))))
-- 
steve@calag.com baur
Unsolicited commercial e-mail will be billed at $250/message.