} @address;
foreach my $line ($simple->header('Cc'), $simple->header('To')) {
- my @addrs = ($line =~ /([^<\s]+\@[^>\s]+)/g);
+ my @addrs = ($line =~ /([^,<\s]+\@[^,>\s]+)/g);
foreach my $addr (@addrs) {
if ($ok{lc(__drop_plus($addr))}) {
return 1;
my ($class, $simple, $dst) = @_;
unless (defined $simple->header('List-Id')) {
my $pa = $dst->{-primary_address};
- $simple->header_set("List-Id", "<$pa>"); # RFC2919
+ $pa =~ tr/@/./; # RFC2919
+ $simple->header_set("List-Id", "<$pa>");
}
$simple->header_set($_) foreach @BAD_HEADERS;