From: Mike Hommey <mh@glandium.org>
Date: Sun, 9 Dec 2007 17:17:28 +0000 (+0100)
Subject: git-send-email.perl: Really add angle brackets to In-Reply-To if necessary
X-Git-Tag: v1.5.4-rc0~32
X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=ace72086bbe1cd59bc15a0e5b043bdb98335af00;p=git.git

git-send-email.perl: Really add angle brackets to In-Reply-To if necessary

3803bcea tried to fix this, but it only adds the branckes when the given
In-Reply-To begins and ends with whitespaces. It also didn't do anything
to the --in-reply-to argument.

Signed-off-by: Mike Hommey <mh@glandium.org>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
---

diff --git a/git-send-email.perl b/git-send-email.perl
index 76baa8e43..c0e1dd348 100755
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -367,10 +367,11 @@ if ($thread && !defined $initial_reply_to && $prompting) {
 	} while (!defined $_);
 
 	$initial_reply_to = $_;
-	$initial_reply_to =~ s/^\s+<?/</;
-	$initial_reply_to =~ s/>?\s+$/>/;
 }
 
+$initial_reply_to =~ s/^\s*<?/</;
+$initial_reply_to =~ s/>?\s*$/>/;
+
 if (!defined $smtp_server) {
 	foreach (qw( /usr/sbin/sendmail /usr/lib/sendmail )) {
 		if (-x $_) {