}
# used by V2Writable, too
-sub prepend_mid ($$) {
+sub append_mid ($$) {
my ($hdr, $mid0) = @_;
# @cur is likely empty if we need to call this sub, but it could
# have random unparseable crap which we'll preserve, too.
- my @cur = $hdr->header_raw('Message-Id');
- $hdr->header_set('Message-Id', "<$mid0>", @cur);
+ my @cur = $hdr->header_raw('Message-ID');
+ $hdr->header_set('Message-ID', @cur, "<$mid0>");
}
sub v1_mid0 ($) {
if (!scalar(@$mids)) { # spam often has no Message-Id
my $mid0 = digest2mid(content_digest($mime));
- prepend_mid($hdr, $mid0);
+ append_mid($hdr, $mid0);
return $mid0;
}
$mids->[0];
$num = $self->{skel}->{mm}->mid_insert($$mid0);
}
}
- PublicInbox::Import::prepend_mid($hdr, $$mid0);
+ PublicInbox::Import::append_mid($hdr, $$mid0);
$num;
}
use PublicInbox::MIME;
use PublicInbox::Config;
use PublicInbox::WWW;
+use PublicInbox::MID qw(mids);
my @mods = qw(DBD::SQLite Search::Xapian HTTP::Request::Common Plack::Test
URI::Escape Plack::Builder);
foreach my $mod (@mods) {
$mime->header_set(Date => 'Fri, 02 Oct 1993 00:01:00 +0000');
ok($im->add($mime), 'added duplicate-but-different message');
is(scalar(@warn), 1, 'got one warning');
-my @mids = $mime->header_obj->header_raw('Message-Id');
-$new_mid = PublicInbox::MID::mid_clean($mids[0]);
+my $mids = mids($mime->header_obj);
+$new_mid = $mids->[1];
$im->done;
my $cfgpfx = "publicinbox.v2test";
like($warn[0], qr/mismatched/, 'warned about mismatched messages');
is($warn[0], $warn[1], 'both warnings are the same');
-@mids = $mime->header_obj->header_raw('Message-Id');
-my $third = PublicInbox::MID::mid_clean($mids[0]);
+$mids = mids($mime->header_obj);
+my $third = $mids->[-1];
$im->done;
test_psgi(sub { $www->call(@_) }, sub {
ok($im->add($mime), 'reused mid ok');
like(join(' ', @warn), qr/reused/, 'warned about reused MID');
my @mids = $mime->header_obj->header_raw('Message-Id');
- is($mids[1], '<a-mid@b>', 'original mid not changed');
- like($mids[0], $sane_mid, 'new MID added');
+ is($mids[0], '<a-mid@b>', 'original mid not changed');
+ like($mids[1], $sane_mid, 'new MID added');
is(scalar(@mids), 2, 'only one new MID added');
@warn = ();
ok($im->add($mime), 'random MID made');
like(join(' ', @warn), qr/using random/, 'warned about using random');
@mids = $mime->header_obj->header_raw('Message-Id');
- is($mids[1], '<a-mid@b>', 'original mid not changed');
- like($mids[0], $sane_mid, 'new MID added');
+ is($mids[0], '<a-mid@b>', 'original mid not changed');
+ like($mids[1], $sane_mid, 'new MID added');
is(scalar(@mids), 2, 'only one new MID added');
@warn = ();