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

dakhubgit · gitster · commit 3803bceae84f · 2007-09-12T00:57:38.000-07:00
Although message-id by defintion should have surrounding angle
brackets, there is no point forcing people to type them in.

Signed-off-by: David Kastrup &lt;dak@gnu.org&gt;
Signed-off-by: Junio C Hamano &lt;gitster@pobox.com&gt;
diff --git a/git-send-email.perl b/git-send-email.perl
@@ -317,7 +317,8 @@ sub expand_aliases {
 	} while (!defined $_);
 
 	$initial_reply_to = $_;
-	$initial_reply_to =~ s/(^\s+|\s+$)//g;
+	$initial_reply_to =~ s/^\s+<?/</;
+	$initial_reply_to =~ s/>?\s+$/>/;
 }
 
 if (!$smtp_server) {

Original file line number	Diff line number	Diff line change
`@@ -317,7 +317,8 @@ sub expand_aliases {`
`317`	`317`	`} while (!defined $_);`
`318`	`318`
`319`	`319`	`$initial_reply_to = $_;`
`320`		`- $initial_reply_to =~ s/(^\s+\|\s+$)//g;`
	`320`	`+ $initial_reply_to =~ s/^\s+<?/</;`
	`321`	`+ $initial_reply_to =~ s/>?\s+$/>/;`
`321`	`322`	`}`
`322`	`323`
`323`	`324`	`if (!$smtp_server) {`