X-No-Archive

X-No-Archive

[Samuel Tardieu]

Lars, could it be possible to add a binding to the message mode to
automatically insert a X-No-Archive: header into a post or a mail[1]?
This convention is being used by many archiving software to prevent
automatic archiving.

  Sam

Footnotes: 
[1]  I know I could do it myself with a few lines of elisp, but I
     think it is useful for general use

-- 
Samuel Tardieu -- sam@inf.enst.fr

Re: X-No-Archive

[Hrvoje Niksic]

Samuel Tardieu <sam@inf.enst.fr> writes:

> [1]  I know I could do it myself with a few lines of elisp, but I
>      think it is useful for general use

True.  I'd like to have it as a part of message, too.

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Ask not for whom the <CONTROL-G> tolls.

Re: X-No-Archive

[Steven L Baur]

Samuel Tardieu <sam@inf.enst.fr> writes:

> Lars, could it be possible to add a binding to the message mode to
> automatically insert a X-No-Archive: header into a post or a mail[1]?

How about adding it to `message-default-headers'?

(setq message-default-headers "X-No-Archive: yes\n")

Another possibility is adding something to message-header-setup-hook.
With some help from Lars, my hook looks like this: (to put in a
`Mail-Copies-To: never' only when posting to a mailing list or newsgroup)

(defun steves-message-header-setup-hook ()
  (let ((group (or gnus-newsgroup-name "")))
    (when (or (message-fetch-field "newsgroups")
              (gnus-group-find-parameter group 'to-address)
              (gnus-group-find-parameter group 'to-list))
      (insert "Mail-Copies-To: never\n"))))

> This convention is being used by many archiving software to prevent
> automatic archiving.

The only 100% reliable way not to be archived somewhere is to not
post.  This is either a good thing or a bad thing, I haven't decided
yet.
-- 
steve@calag.com baur
Unsolicited commercial e-mail will be billed at $250/message.

Re: X-No-Archive

[Samuel Tardieu]

>>>>> "Steve" == Steven L Baur <steve@xemacs.org> writes:

Steve> How about adding it to `message-default-headers'?

Steve> (setq message-default-headers "X-No-Archive: yes\n")

Steve> Another possibility is adding something to
Steve> message-header-setup-hook.  With some help from Lars, my hook
Steve> looks like this: (to put in a `Mail-Copies-To: never' only when
Steve> posting to a mailing list or newsgroup)

Steve> The only 100% reliable way not to be archived somewhere is to
Steve> not post.  This is either a good thing or a bad thing, I
Steve> haven't decided yet.  -- steve@calag.com baur Unsolicited
Steve> commercial e-mail will be billed at $250/message.

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.

I want this because sometimes I answer posts/mails with seemless (for
the group) data, for example to stop a big useless thread or to ask
the posters to continue using mail. Archiving this kind of post is only 
a waste of disk space and a useless increase of noise/signal ratio[1].

  Sam

Footnotes: 
[1]  Both for the subject of the group and for myself, when people do
     keyword searchs on my name
-- 
Samuel Tardieu -- sam@inf.enst.fr

Re: X-No-Archive

[Hrvoje Niksic]

Steven L Baur <steve@xemacs.org> writes:

> How about adding it to `message-default-headers'?
> 
> (setq message-default-headers "X-No-Archive: yes\n")

I'd like to have it on article-per-article basis.  Like, I press
`C-c C-f C-x', and "X-No-Archive: yes" pops up in the headers.

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
The end of the world is coming...  SAVE YOUR BUFFERS!

Re: X-No-Archive

[Steven L Baur]

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.