From 4438f547ecbb52d900dcc73fe4c03cb2e7d5562c Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sun, 11 Jan 2015 04:46:27 +0000 Subject: *slrnspool* old gmane archives set Original-To Apparently it's not a problem with recent archives. --- scripts/slrnspool2maildir | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'scripts/slrnspool2maildir') 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 -- cgit v1.2.3-24-ge0c7