From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/58925
Path: main.gmane.org!not-for-mail
From: Reiner Steib <reinersteib+gmane@imap.cc>
Newsgroups: gmane.emacs.gnus.general
Subject: gnus-copy-article-ignored-headers
Date: Sun, 17 Oct 2004 19:52:33 +0200
Organization: Dept. of Theoretical Physics, University of Ulm
Sender: ding-owner@lists.math.uh.edu
Message-ID: <v9fz4ds04e.fsf@marauder.physik.uni-ulm.de>
Reply-To: Reiner Steib <Reiner.Steib@gmx.de>
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-Trace: sea.gmane.org 1098035696 23278 80.91.229.6 (17 Oct 2004 17:54:56 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Sun, 17 Oct 2004 17:54:56 +0000 (UTC)
Original-X-From: ding-owner+M7463@lists.math.uh.edu Sun Oct 17 19:54:44 2004
Return-path: <ding-owner+M7463@lists.math.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13] ident=mail)
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1CJFEx-0001v4-00
	for <ding-account@gmane.org>; Sun, 17 Oct 2004 19:54:43 +0200
Original-Received: from localhost
	([127.0.0.1] helo=lists.math.uh.edu ident=lists)
	by malifon.math.uh.edu with smtp (Exim 3.20 #1)
	id 1CJFDO-0003C9-00; Sun, 17 Oct 2004 12:53:06 -0500
Original-Received: from util2.math.uh.edu ([129.7.128.23])
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 1CJFDK-0003C4-00
	for ding@lists.math.uh.edu; Sun, 17 Oct 2004 12:53:02 -0500
Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix)
	by util2.math.uh.edu with esmtp (Exim 4.30)
	id 1CJFDH-0006cc-MQ
	for ding@lists.math.uh.edu; Sun, 17 Oct 2004 12:52:59 -0500
Original-Received: from main.gmane.org (main.gmane.org [80.91.229.2])
	by justine.libertine.org (Postfix) with ESMTP id E19863A004F
	for <ding@gnus.org>; Sun, 17 Oct 2004 12:52:58 -0500 (CDT)
Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian))
	id 1CJFDE-0001YB-00
	for <ding@gnus.org>; Sun, 17 Oct 2004 19:52:56 +0200
Original-Received: from lumberjack.physik.uni-ulm.de ([134.60.10.173])
        by main.gmane.org with esmtp (Gmexim 0.1 (Debian))
        id 1AlnuQ-0007hv-00
        for <ding@gnus.org>; Sun, 17 Oct 2004 19:52:56 +0200
Original-Received: from Reiner.Steib by lumberjack.physik.uni-ulm.de with local (Gmexim 0.1 (Debian))
        id 1AlnuQ-0007hv-00
        for <ding@gnus.org>; Sun, 17 Oct 2004 19:52:56 +0200
X-Injected-Via-Gmane: http://gmane.org/
Mail-Followup-To: ding@gnus.org
Original-To: ding@gnus.org
Original-Lines: 61
Original-X-Complaints-To: usenet@sea.gmane.org
X-Gmane-NNTP-Posting-Host: lumberjack.physik.uni-ulm.de
X-Face: <g1&X-,m)K3j>mtjf/D:es1T0wHO:&CJ'ZXe"l;3C--rw\z!{`eFwL){|]RpI+4{u25L=5C
 /0>KuGeTsk<~<&NE-AKV1560e!+RJeyWmSskkrJm?[vUV#66{T_m|Ae<||Ku#Mk5`y&O`n~z2;n8eP
 J5#2h@2eQgV@E70IY_0WlEx!"&giy{+\%h1LJox$zv@/l%ZmU4^tZA>xQpnkUBVC5.jpg#0'(+2?Rs
 )NAr:>3<=WxHE$ktbLysDIM5TbmHu*3<U=Uk"ijkMX84~dvxckX
Mail-Copies-To: nobody
User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (gnu/linux)
Cancel-Lock: sha1:mo65uW5gOJuhwq0tLAeOAo4MvSM=
Precedence: bulk
Xref: main.gmane.org gmane.emacs.gnus.general:58925
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:58925

--=-=-=

Hi,

when copying articles from say nnml to an IMAP server, the Xref:
header isn't removed.  The new variable
`gnus-copy-article-ignored-headers' cares for this, see the attached
patch.  I have committed it.  I anyone can think of possible problems,
please let me know.

I found such a variable useful when I needed to train bogofilter from
my ham/spam collection (on nnml) by copying the collections to
corresponding IMAP folders.  Keeping Xref, X-DCC-.*-Metrics and
X-Bogosity[1] headers would have been wrong because the articles
should be as close to the original as possible.

Bye, Reiner.

[1] Actually X-Bogosity is ignored by bogofilter, IIRC.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

--=-=-=
Content-Type: text/x-patch
Content-Disposition: inline; filename=rs-copy-ignore.patch

--- gnus-art.el	7 Oct 2004 13:54:59 -0000	7.56
+++ gnus-art.el	17 Oct 2004 17:40:22 -0000
@@ -564,6 +564,15 @@
   :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.")
 
--- gnus-sum.el	12 Oct 2004 02:26:52 -0000	7.61
+++ gnus-sum.el	17 Oct 2004 17:40:23 -0000
@@ -9018,6 +9018,10 @@
 	 (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.

--=-=-=--