(message-cite-articles-with-x-no-archive): New

variable.
(message-cite-original): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8b1c0f7..be90c67 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+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. 

diff --git a/lisp/message.el b/lisp/message.el
index ceab6bd..a7ee7e1 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1072,6 +1072,11 @@ starting with `not' and followed by regexps."
   :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.
 
@@ -3268,6 +3273,7 @@ prefix, and don't delete any headers."
          (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))