diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/PublicInbox/MDA.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/PublicInbox/MDA.pm b/lib/PublicInbox/MDA.pm index 003bac65..26681c2f 100644 --- a/lib/PublicInbox/MDA.pm +++ b/lib/PublicInbox/MDA.pm @@ -23,7 +23,9 @@ sub __drop_plus { sub precheck { my ($klass, $filter, $address) = @_; my Email::Simple $simple = $filter->simple; - my $mid = $simple->header("Message-ID"); + my @mid = $simple->header('Message-ID'); + return 0 if scalar(@mid) != 1; + my $mid = $mid[0]; return 0 if (length($mid) > MAX_MID_SIZE); return 0 unless usable_str(length('<m@h>'), $mid) && $mid =~ /\@/; return 0 unless usable_str(length('u@h'), $filter->from); |