about summary refs log tree commit homepage
path: root/lib/PublicInbox/Mbox.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/PublicInbox/Mbox.pm')
-rw-r--r--lib/PublicInbox/Mbox.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/PublicInbox/Mbox.pm b/lib/PublicInbox/Mbox.pm
index 16de1a72..9995140c 100644
--- a/lib/PublicInbox/Mbox.pm
+++ b/lib/PublicInbox/Mbox.pm
@@ -106,8 +106,11 @@ sub msg_hdr ($$;$) {
                 'List-Post', "<mailto:$ibx->{-primary_address}>",
         );
         my $crlf = $header_obj->crlf;
-        my $buf = 'From mboxrd@z Thu Jan  1 00:00:00 1970' . $crlf .
-                        $header_obj->as_string;
+        my $buf = $header_obj->as_string;
+        # fixup old bug from import (pre-a0c07cba0e5d8b6a)
+        $buf =~ s/\A[\r\n]*From [^\r\n]*\r?\n//s;
+        $buf = "From mboxrd\@z Thu Jan  1 00:00:00 1970" . $crlf . $buf;
+
         for (my $i = 0; $i < @append; $i += 2) {
                 my $k = $append[$i];
                 my $v = $append[$i + 1];