diff --git a/git-send-email.perl b/git-send-email.perl
index bfb6a3634402ddc1411478b22e047a10d433d667..81b2ea5633a9692f52af67ab8bfd42b68781cf4d 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
sub valid_fqdn {
my $domain = shift;
- return !($^O eq 'darwin' && $domain =~ /\.local$/) && $domain =~ /\./;
+ return defined $domain && !($^O eq 'darwin' && $domain =~ /\.local$/) && $domain =~ /\./;
}
sub maildomain_net {
sub send_message {
my @recipients = unique_email_list(@to);
@cc = (grep { my $cc = extract_valid_address($_);
- not grep { $cc eq $_ } @recipients
+ not grep { $cc eq $_ || $_ =~ /<\Q${cc}\E>$/ } @recipients
}
map { sanitize_address($_) }
@cc);