mbox_reader: do not chomp non-blank EOL

[public-inbox.git] / lib / PublicInbox / MboxReader.pm

diff --git a/lib/PublicInbox/MboxReader.pm b/lib/PublicInbox/MboxReader.pm
index 59ce4fb624d57000fcf6a913c9072e927486f483..df7c78faf885c6cf9dae692ef30cfdac43741f0f 100644 (file)
--- a/lib/PublicInbox/MboxReader.pm
+++ b/lib/PublicInbox/MboxReader.pm
@@ -26,7 +26,7 @@ sub _mbox_from {
                }
                @raw = grep /[^ \t\r\n]/s, @raw; # skip empty messages
                while (defined(my $raw = shift @raw)) {
-                       $raw =~ s/\r?\n\z//s;
+                       $raw =~ s/^\r?\n\z//ms;
                        $raw =~ s/$from_re/$1/gms;
                        my $eml = PublicInbox::Eml->new(\$raw);
                        $eml_cb->($eml, @arg);