about summary refs log tree commit homepage
path: root/scripts/slrnspool2maildir
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2015-01-11 04:46:27 +0000
committerEric Wong <e@80x24.org>2015-01-11 04:46:27 +0000
commit4438f547ecbb52d900dcc73fe4c03cb2e7d5562c (patch)
tree301235fe776c71a8d7163525085215469d9ae311 /scripts/slrnspool2maildir
parente80c2d9a9e3d891105ad7bfcd1369a020e6be185 (diff)
downloadpublic-inbox-4438f547ecbb52d900dcc73fe4c03cb2e7d5562c.tar.gz
Apparently it's not a problem with recent archives.
Diffstat (limited to 'scripts/slrnspool2maildir')
-rwxr-xr-xscripts/slrnspool2maildir11
1 files changed, 7 insertions, 4 deletions
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