variable.
(message-cite-original): Use it.
+2004-06-06 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * message.el (message-cite-articles-with-x-no-archive): New
+ variable.
+ (message-cite-original): Use it.
+
2004-06-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
* message.el (message-cite-original): Respect X-No-Archive.
:link '(custom-manual "(message)Message Headers")
:type '(repeat regexp))
+(defcustom message-cite-articles-with-x-no-archive t
+ "If non-nil, cite text from articles that has X-No-Archive set."
+ :group 'message
+ :type 'boolean)
+
;;; Internal variables.
;;; Well, not really internal.
(insert "\n"))
(funcall message-citation-line-function))
(when (and x-no-archive
+ message-cite-articles-with-x-no-archive
(string-match "yes" x-no-archive))
(undo-boundary)
(delete-region (point) (mark t))