send-email: a bit more careful domain regexp.

This tightens the regexp a bit to make sure there is no double dots.

Signed-off-by: Junio C Hamano <junkio@cox.net>

1 files changed, 1 insertions, 1 deletions

diff --git a/git-send-email.perl b/git-send-email.perl
index 700d0c3e15..7b1cca70ab 100755
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -313,7 +313,7 @@ our ($message_id, $cc, %mail, $subject, $reply_to, $references, $message);
 sub extract_valid_address {
 	my $address = shift;
 	my $local_part_regexp = '[^<>"\s@]+';
-	my $domain_regexp = '[^.<>"\s@]+\.[^<>"\s@]+';
+	my $domain_regexp = '[^.<>"\s@]+(?:\.[^.<>"\s@]+)+';
 
 	# check for a local address:
 	return $address if ($address =~ /^($local_part_regexp)$/);