X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=scripts%2Fslrnspool2maildir;h=a3908edf25fa87f19cbbbfbe909f110d0ca0b046;hb=f76f265a851944b5dedcc3be5f3b5224b6ebda89;hp=12510a327fbbae114abed540ee5797e6eaa4665f;hpb=4b64856cd451f2fd732a8ce3a36669272c057cd1;p=public-inbox.git

diff --git a/scripts/slrnspool2maildir b/scripts/slrnspool2maildir
index 12510a32..a3908edf 100755
--- a/scripts/slrnspool2maildir
+++ b/scripts/slrnspool2maildir
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# Copyright (C) 2013, Eric Wong <normalperson@yhbt.net> and all contributors
+# Copyright (C) 2013-2015 all contributors <meta@public-inbox.org>
 # License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
 #
 # One-off script to convert an slrnpull news spool to Maildir
@@ -27,10 +27,13 @@ foreach my $n (grep(/\d+\z/, glob("$spool/*"))) {
 		my $s = $f->simple;
 
 		# gmane rewrites Received headers, which increases spamminess
-		my @h = $s->header('Original-Received');
-		if (@h) {
-			$s->header_set('Received', @h);
-			$s->header_set('Original-Received');
+		# Some older archives set Original-To
+		foreach my $x (qw(Received To)) {
+			my @h = $s->header("Original-$x");
+			if (@h) {
+				$s->header_set($x, @h);
+				$s->header_set("Original-$x");
+			}
 		}
 
 		# triggers for the SA HEADER_SPAM rule