http://7fh6tueqddpjyxjmgtdiueylzoqt6pt7hec3pukyptlmohoowvhde4yd.onion/public-inbox.git/tree/lib/PublicInbox/MDA.pm?h=p516-leak
.*\@/\@/ ; $str_addr ; } # do not allow Bcc, only Cc and To if recipient is set sub precheck { my ( $klass , $simple , $address ) = @_ ; 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 ' ), $simple -> header ( "From" )); return 0 unless usable_str ( length ( ':o' ),...