send-email: do not muck with initial-reply-to when unset.

[~andy/git] / git-send-email.perl

diff --git a/git-send-email.perl b/git-send-email.perl
index c0e1dd348c1f62029bb99b16cae290d2e4a77217..1d6f46645328dc2520226aba532c4acb86f5ec32 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -368,9 +368,10 @@ if ($thread && !defined $initial_reply_to && $prompting) {
 
        $initial_reply_to = $_;
 }
-
-$initial_reply_to =~ s/^\s*<?/</;
-$initial_reply_to =~ s/>?\s*$/>/;
+if (defined $initial_reply_to && $_ ne "") {
+       $initial_reply_to =~ s/^\s*<?/</;
+       $initial_reply_to =~ s/>?\s*$/>/;
+}
 
 if (!defined $smtp_server) {
        foreach (qw( /usr/sbin/sendmail /usr/lib/sendmail )) {