* gnus-art.el (gnus-copy-article-ignored-headers): New variable.

* gnus-sum.el (gnus-summary-move-article): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 309a519..9102167 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 f4825d6..cf09c66 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -564,6 +564,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 1a627d0..c345788 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9018,6 +9018,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.