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

From

Mike Hommey <mh@glandium.org>

Date

Dec 9, 2007, 19:58 UTC

Message-ID

<1197230339-22756-1-git-send-email-mh@glandium.org>

In-Reply-To

<8663z7tznv.fsf@blue.stonehenge.com>

Signed-off-by: Mike Hommey <mh@glandium.org>
---

Randal L. Schwartz wrote:

> Oh, you don't need to \ the < and > though.  Cleans it up a bit
> if you get rid of those.

Doh', I forgot to remove them. Here is a cleaned out patch.

 git-send-email.perl |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/git-send-email.perl b/git-send-email.perl
index 76baa8e..c0e1dd3 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 $_) {

-- 
1.5.3.7