mirrors/git
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make git-send-email.perl handle email addresses with no names when Email::Valid is present

Browse Source 
When using git-send-email.perl on a changeset that has:
	Cc: <stable@kernel.org>
in the body of the description, and the Email::Valid perl module is
installed on the system, the email address will be deemed "invalid" for
some reason (Email::Valid isn't smart enough to handle this?) and
complain and not send the address the email.

Signed-off-by: Greg Kroah-Hartman <gregkh@suse.de>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
Greg KH
2007-07-12 21:17:49 -07:00
committed by Junio C Hamano
parent af83bed690
commit b06c6bc831
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
git-send-email.perl
View File

@ -410,6 +410,7 @@ sub extract_valid_address {
return $address if ($address =~ /^($local_part_regexp)$/); return $address if ($address =~ /^($local_part_regexp)$/);
if ($have_email_valid) { if ($have_email_valid) {
$address =~ s/^<(.*)>$/$1/;
return scalar Email::Valid->address($address); return scalar Email::Valid->address($address);
} else { } else {
# less robust/correct than the monster regexp in Email::Valid, # less robust/correct than the monster regexp in Email::Valid,