#!/usr/bin/perl -w
-# Copyright (C) 2013, Eric Wong <normalperson@yhbt.net> and all contributors
+# Copyright (C) 2013-2015 all contributors <meta@public-inbox.org>
# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
#
# One-off script to convert an slrnpull news spool to Maildir
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