script/public-inbox-learn | 7 ++++++-

diff --git a/script/public-inbox-learn b/script/public-inbox-learn
index 0c7b4199abeea2def7b452101ce83e4e24b9b7a1..81675d0295e320057b8c1ded2dcc925f868e3f8a 100755
--- a/script/public-inbox-learn
+++ b/script/public-inbox-learn
@@ -17,7 +17,12 @@ 	die "`$train' not recognized.\nusage: $usage\n";
 }
 
 my $pi_config = PublicInbox::Config->new;
-my $mime = Email::MIME->new(eval { local $/; <> });
+my $mime = Email::MIME->new(eval {
+	local $/;
+	my $data = scalar <STDIN>;
+	$data =~ s/\AFrom [^\r\n]*\r?\n//s;
+	$data
+});
 
 # get all recipients
 my %dests;