http://7fh6tueqddpjyxjmgtdiueylzoqt6pt7hec3pukyptlmohoowvhde4yd.onion/public-inbox.git/tree/lib/PublicInbox/MDA.pm?h=p516-leak
@ $address : ( $address ); my %ok = map { lc ( __drop_plus ( $_ )) => 1 ; } @address ; foreach my $line ( $simple -> header ( 'Cc' ), $simple -> header ( 'To' )) { my @addrs = ( $line =~ /([^,<\s]+\@[^,>\s]+)/g ); foreach my $addr ( @addrs ) { if ( $ok { lc ( __drop_plus ( $addr ))}) { return 1 ; } } } return 0 ; } sub set_list_headers { my ( $class , $simple , $dst ) = @_ ; unless ( defined $simple -> header ( 'List-Id' )) { my $pa = $dst ->{- primary_address }; $pa =~ tr/@/./ ; # RFC2919...