git-send-email: ask what to do with an invalid email address

[thirdparty/git.git] / git-send-email.perl

diff --git a/git-send-email.perl b/git-send-email.perl
index 5a783ace0588dae9e4fd2666de9ae81ae4d5b1be..11a6e868236cc7bd7b1b9db371fa662242b789a7 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -852,8 +852,16 @@ sub extract_valid_address_or_die {
 sub validate_address {
        my $address = shift;
        if (!extract_valid_address($address)) {
-               print STDERR "W: unable to extract a valid address from: $address\n";
-               return undef;
+               print STDERR "error: unable to extract a valid address from: $address\n";
+               $_ = ask("What to do with this address? ([q]uit|[d]rop): ",
+                       valid_re => qr/^(?:quit|q|drop|d)/i,
+                       default => 'q');
+               if (/^d/i) {
+                       return undef;
+               } elsif (/^q/i) {
+                       cleanup_compose_files();
+                       exit(0);
+               }
        }
        return $address;
 }