X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=git-send-email.perl;h=312a4ea2aa10189eeb470a185993bb7f8af45d0e;hb=d556fae2c0ea063f15ea4c3678fe931cc426f1ca;hp=0540e93758e45a03ad87272b0ceed9acb8973f53;hpb=aca7ad7628ce72afbd1d0d99778c9a5c9cac7a7a;p=git.git

diff --git a/git-send-email.perl b/git-send-email.perl
index 0540e937..312a4ea2 100755
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -307,6 +307,10 @@ our ($message_id, $cc, %mail, $subject, $reply_to, $message);
 
 sub extract_valid_address {
 	my $address = shift;
+
+	# check for a local address:
+	return $address if ($address =~ /^([\w\-]+)$/);
+
 	if ($have_email_valid) {
 		return Email::Valid->address($address);
 	} else {
@@ -498,9 +502,14 @@ sub unique_email_list(@) {
 	my @emails;
 
 	foreach my $entry (@_) {
-		my $clean = extract_valid_address($entry);
-		next if $seen{$clean}++;
-		push @emails, $entry;
+		if (my $clean = extract_valid_address($entry)) {
+			$seen{$clean} ||= 0;
+			next if $seen{$clean}++;
+			push @emails, $entry;
+		} else {
+			print STDERR "W: unable to extract a valid address",
+					" from: $entry\n";
+		}
 	}
 	return @emails;
 }