about summary refs log tree commit homepage
path: root/script/public-inbox-learn
diff options
context:
space:
mode:
Diffstat (limited to 'script/public-inbox-learn')
-rwxr-xr-xscript/public-inbox-learn7
1 files changed, 6 insertions, 1 deletions
diff --git a/script/public-inbox-learn b/script/public-inbox-learn
index 0c7b4199..81675d02 100755
--- a/script/public-inbox-learn
+++ b/script/public-inbox-learn
@@ -17,7 +17,12 @@ if ($train !~ /\A(?:ham|spam)\z/) {
 }
 
 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;