(message-cite-original): Fix use of `message-cite-articles-with-x-no-archive'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fa5897f..11c60d2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-23  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * message.el (message-cite-original): Fix use of
+       `message-cite-articles-with-x-no-archive'.
+
 2004-09-22  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-win.el (gnus-buffer-configuration): Add mml-preview.

diff --git a/lisp/message.el b/lisp/message.el
index faf53e7..9926ed7 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3302,7 +3302,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
+                (not message-cite-articles-with-x-no-archive)
                 (string-match "yes" x-no-archive))
        (undo-boundary)
        (delete-region (point) (mark t))