diff options
Diffstat (limited to 'scripts/import_vger_from_mbox')
| -rw-r--r-- | scripts/import_vger_from_mbox | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/import_vger_from_mbox b/scripts/import_vger_from_mbox index abc2d37c..13084835 100644 --- a/scripts/import_vger_from_mbox +++ b/scripts/import_vger_from_mbox @@ -46,12 +46,12 @@ my $vger = PublicInbox::Filter::Vger->new; sub do_add ($$) { my ($im, $msg) = @_; $$msg =~ s/(\r?\n)+\z/$1/s; - $msg = Email::MIME->new($$msg); - $msg = $vger->scrub($msg); + my $mime = PublicInbox::MIME->new($msg); + $mime = $vger->scrub($mime); return unless $im; - $im->add($msg) or + $im->add($mime) or warn "duplicate: ", - $msg->header_obj->header_raw('Message-ID'), "\n"; + $mime->header_obj->header_raw('Message-ID'), "\n"; } # asctime: From example@example.com Fri Jun 23 02:56:55 2000 |