diff options
| author | Greg KH <greg@kroah.com> | 2007-07-12 21:17:49 -0700 |
|---|---|---|
| committer | Junio C Hamano <gitster@pobox.com> | 2007-07-12 22:48:54 -0700 |
| commit | b06c6bc831cbb9e9eb82fd3ffd5a2b674cd940d0 (patch) | |
| tree | 79068a4bdb4389bec50e430e14251f7182ee6583 /git-send-email.perl | |
| parent | af83bed6903256c581f081ba7bba372f19804b30 (diff) | |
| download | git-b06c6bc831cbb9e9eb82fd3ffd5a2b674cd940d0.tar.gz git-b06c6bc831cbb9e9eb82fd3ffd5a2b674cd940d0.tar.xz | |
make git-send-email.perl handle email addresses with no names when Email::Valid is present
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>
Diffstat (limited to 'git-send-email.perl')
| -rwxr-xr-x | git-send-email.perl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/git-send-email.perl b/git-send-email.perl index 89f7c36ee..a847d5ed5 100755 --- a/git-send-email.perl +++ b/git-send-email.perl @@ -410,6 +410,7 @@ sub extract_valid_address { return $address if ($address =~ /^($local_part_regexp)$/); if ($have_email_valid) { + $address =~ s/^<(.*)>$/$1/; return scalar Email::Valid->address($address); } else { # less robust/correct than the monster regexp in Email::Valid, |