From: yamaoka <yamaoka>
Date: Sun, 17 Oct 2004 22:09:07 +0000 (+0000)
Subject: Synch to No Gnus 200410171751.
X-Git-Tag: t-gnus-6_17_4-quimby-~708
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a4df0a420cb04221364201fd6101bdc94d52bb41;p=elisp%2Fgnus.git-

Synch to No Gnus 200410171751.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 846d86b..3f85513 100644
--- 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
--- 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
--- 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.