mda: drop leading "From " lines again

[public-inbox.git] / script / public-inbox-learn

diff --git a/script/public-inbox-learn b/script/public-inbox-learn
index 7ef2a312744c97f89de32a74ee8df4867a1ee142..09fd7c8f43409865471acbe481a82ad149b43ebd 100755 (executable)
--- a/script/public-inbox-learn
+++ b/script/public-inbox-learn
@@ -26,7 +26,7 @@ my $err;
 my $mime = Email::MIME->new(eval {
        local $/;
        my $data = scalar <STDIN>;
-       $data =~ s/\AFrom [^\r\n]*\r?\n//s;
+       $data =~ s/\A[\r\n]*From [^\r\n]*\r?\n//s;
        eval {
                if ($train eq 'ham') {
                        $spamc->hamlearn(\$data);