Synch to No Gnus 200410171751.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 846d86b..3f85513 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-10-17  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-art.el (gnus-copy-article-ignored-headers): New variable.
+
+       * gnus-sum.el (gnus-summary-move-article): Use it.
+
 2004-10-15  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * spam.el (spam-backend-article-list-property)

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 2dea0aa..b5dc851 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -610,6 +610,15 @@ The following additional specs are available:
   :type 'hook
   :group 'gnus-article-various)
 
+(defcustom gnus-copy-article-ignored-headers '("Xref")
+  "List of headers to be removed when copying an article.
+Each element is a regular expression."
+  :version "22.0" ;; No Gnus
+  :type '(choice :custom-show nil
+                regexp
+                (repeat regexp))
+  :group 'gnus-article-various)
+
 (make-obsolete-variable 'gnus-article-hide-pgp-hook
                        "This variable is obsolete in Gnus 5.10.")
 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 448faee..7eaabc9 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9138,6 +9138,10 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
         (save-excursion
           (set-buffer copy-buf)
           (when (gnus-request-article-this-buffer article gnus-newsgroup-name)
+            (save-restriction
+              (nnheader-narrow-to-headers)
+              (dolist (hdr gnus-copy-article-ignored-headers)
+                (message-remove-header hdr t)))
             (gnus-request-accept-article
              to-newsgroup select-method (not articles) t))))
        ;; Crosspost the article.