From a4df0a420cb04221364201fd6101bdc94d52bb41 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 17 Oct 2004 22:09:07 +0000 Subject: [PATCH] Synch to No Gnus 200410171751. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-art.el | 9 +++++++++ lisp/gnus-sum.el | 4 ++++ 3 files changed, 19 insertions(+) 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 + + * gnus-art.el (gnus-copy-article-ignored-headers): New variable. + + * gnus-sum.el (gnus-summary-move-article): Use it. + 2004-10-15 Teodor Zlatanov * 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. -- 1.7.10.4