about summary refs log tree commit homepage
path: root/lib/PublicInbox/Import.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/PublicInbox/Import.pm')
-rw-r--r--lib/PublicInbox/Import.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/PublicInbox/Import.pm b/lib/PublicInbox/Import.pm
index 6824faca..e07eddab 100644
--- a/lib/PublicInbox/Import.pm
+++ b/lib/PublicInbox/Import.pm
@@ -297,12 +297,12 @@ sub drop_unwanted_headers ($) {
 }
 
 # 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 ($) {
@@ -312,7 +312,7 @@ 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];