Function: message-add-archive-header

message-add-archive-header is an interactive and byte-compiled function defined in message.el.gz.

Signature

(message-add-archive-header)

Documentation

Insert "X-No-Archive: Yes" in the header and a note in the body.

The note can be customized using message-archive-note. When called with a prefix argument, ask for a text to insert. If you don't want the note in the
body, set message-archive-note to nil.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-add-archive-header ()
  "Insert \"X-No-Archive: Yes\" in the header and a note in the body.
The note can be customized using `message-archive-note'.  When called with a
prefix argument, ask for a text to insert.  If you don't want the note in the
body, set  `message-archive-note' to nil."
  (interactive nil message-mode)
  (if current-prefix-arg
      (setq message-archive-note
	    (read-from-minibuffer "Reason for No-Archive: "
				  (cons message-archive-note 0))))
    (save-excursion
      (if (message-goto-signature)
	  (re-search-backward message-signature-separator))
      (when message-archive-note
	(insert message-archive-note)
	(newline))
      (message-add-header message-archive-header)
      (message-sort-headers)))