lib/PublicInbox/MDA.pm | 4 +++- diff --git a/lib/PublicInbox/MDA.pm b/lib/PublicInbox/MDA.pm index 003bac659e6166ef73d29613ac372fc6cb382702..26681c2f3f10a06d5ce3b9e57081004029323525 100644 --- a/lib/PublicInbox/MDA.pm +++ b/lib/PublicInbox/MDA.pm @@ -23,7 +23,9 @@ # do not allow Bcc, only Cc and To if recipient is set 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(''), $mid) && $mid =~ /\@/; return 0 unless usable_str(length('u@h'), $filter->from);