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

When not prompting, initial_reply_to can be left unset.  Do not try to
sanitize it and get useless warning.

Signed-off-by: Junio C Hamano <gitster@pobox.com>

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 @@ sub expand_aliases {
 
        $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 )) {