From 8baf06a03aa2a4554079a2f722af1751f1654ce8 Mon Sep 17 00:00:00 2001 From: Ryan Anderson Date: Mon, 29 May 2006 12:30:14 -0700 Subject: [PATCH] Fix a bug in email extraction used in git-send-email. (Also, kill off an accidentally created warning.) Signed-off-by: Ryan Anderson Signed-off-by: Junio C Hamano --- git-send-email.perl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/git-send-email.perl b/git-send-email.perl index 85ec5df13..d418d6c5d 100755 --- a/git-send-email.perl +++ b/git-send-email.perl @@ -322,7 +322,11 @@ sub extract_valid_address { } else { # less robust/correct than the monster regexp in Email::Valid, # but still does a 99% job, and one less dependency - return ($address =~ /([^\"<>\s]+@[^<>\s]+)/); + my $cleaned_address; + if ($address =~ /([^\"<>\s]+@[^<>\s]+)/) { + $cleaned_address = $1; + } + return $cleaned_address; } } @@ -416,6 +420,7 @@ X-Mailer: git-send-email $gitversion } $reply_to = $initial_reply_to; +$references = $initial_reply_to; make_message_id(); $subject = $initial_subject; -- 2.30.2