diff options
author | Eric Wong <e@80x24.org> | 2015-01-11 04:46:27 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2015-01-11 04:46:27 +0000 |
commit | 4438f547ecbb52d900dcc73fe4c03cb2e7d5562c (patch) | |
tree | 301235fe776c71a8d7163525085215469d9ae311 /scripts/import_slrnspool | |
parent | e80c2d9a9e3d891105ad7bfcd1369a020e6be185 (diff) | |
download | public-inbox-4438f547ecbb52d900dcc73fe4c03cb2e7d5562c.tar.gz |
Apparently it's not a problem with recent archives.
Diffstat (limited to 'scripts/import_slrnspool')
-rwxr-xr-x | scripts/import_slrnspool | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/scripts/import_slrnspool b/scripts/import_slrnspool index fec7ebf1..ea7a97bf 100755 --- a/scripts/import_slrnspool +++ b/scripts/import_slrnspool @@ -50,10 +50,13 @@ for (; $n < $max; $n++) { 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 |