diff options
Diffstat (limited to 'script/public-inbox-learn')
-rwxr-xr-x | script/public-inbox-learn | 7 |
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; |