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

diff --git a/git-send-email.perl b/git-send-email.perl
index e0b7d1245eb78b2a74d9de3e86154ebe93f93ca4..195fe6f70a3a13c17b67ad8d067e8e0ff4cc9195 100755 (executable)
--- 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) {