Merge branch 'vb/sendemail' into next
* vb/sendemail: send-email: a bit more careful domain regexp.maint
commit
8779767a58
|
@ -313,7 +313,7 @@ our ($message_id, $cc, %mail, $subject, $reply_to, $references, $message);
|
||||||
sub extract_valid_address {
|
sub extract_valid_address {
|
||||||
my $address = shift;
|
my $address = shift;
|
||||||
my $local_part_regexp = '[^<>"\s@]+';
|
my $local_part_regexp = '[^<>"\s@]+';
|
||||||
my $domain_regexp = '[^.<>"\s@]+\.[^<>"\s@]+';
|
my $domain_regexp = '[^.<>"\s@]+(?:\.[^.<>"\s@]+)+';
|
||||||
|
|
||||||
# check for a local address:
|
# check for a local address:
|
||||||
return $address if ($address =~ /^($local_part_regexp)$/);
|
return $address if ($address =~ /^($local_part_regexp)$/);
|
||||||
|
|
Loading…
Reference in New Issue