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

diff --git a/scripts/slrnspool2maildir b/scripts/slrnspool2maildir
index 12510a32..0c21806a 100755
--- a/scripts/slrnspool2maildir
+++ b/scripts/slrnspool2maildir
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
-# Copyright (C) 2013, Eric Wong <normalperson@yhbt.net> and all contributors
-# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
+# Copyright (C) 2013-2020 all contributors <meta@public-inbox.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 #
 # One-off script to convert an slrnpull news spool to Maildir
 =begin usage
@@ -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