send-email: avoid questions when user has an ident

diff --git a/git-send-email.perl b/git-send-email.perl
index 5a7c29db9324df48c9da68b08a946e5a357f0a78..aca0225e56b2987b9a86c10a7b235bb904fb4ae7 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -753,16 +753,11 @@ sub file_declares_8bit_cte {
        }
 }
 
-my $prompting = 0;
 if (!defined $sender) {
        $sender = $repoauthor || $repocommitter || '';
-       $sender = ask("Who should the emails appear to be from? [$sender] ",
-                     default => $sender,
-                     valid_re => qr/\@.*\./, confirm_only => 1);
-       print "Emails will be sent from: ", $sender, "\n";
-       $prompting++;
 }
 
+my $prompting = 0;
 if (!@initial_to && !defined $to_cmd) {
        my $to = ask("Who should the emails be sent to (if any)? ",
                     default => "",