X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=scripts%2Fslrnspool2maildir;h=08313973364a889c9578ecc04c26c5980e9191eb;hb=4438f547ecbb52d900dcc73fe4c03cb2e7d5562c;hp=12510a327fbbae114abed540ee5797e6eaa4665f;hpb=e80c2d9a9e3d891105ad7bfcd1369a020e6be185;p=public-inbox.git

diff --git a/scripts/slrnspool2maildir b/scripts/slrnspool2maildir
index 12510a32..08313973 100755
--- a/scripts/slrnspool2maildir
+++ b/scripts/slrnspool2maildir
@@ -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