From dea396ae54867cc901d586c8af70d5f9fc14f1a8 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sat, 9 Apr 2016 01:27:37 +0000 Subject: public-inbox-learn: drop leading "From " line from mboxes It can confuse Email::MIME if we have it. --- script/public-inbox-learn | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'script') 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 ; + $data =~ s/\AFrom [^\r\n]*\r?\n//s; + $data +}); # get all recipients my %dests; -- cgit v1.2.3-24-ge0c7