git-send-email: Add --quiet to reduce some of the chatter when sending emails.

Signed-off-by: Ryan Anderson <ryan@michonline.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>

diff --git a/git-send-email.perl b/git-send-email.perl
index 51b7513b5ad4d2a4327f81bd22fb5f674b3a663d..2977b9adebff3180f156327622a9a11067e01696 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -34,7 +34,7 @@
 my (@to,@cc,$initial_reply_to,$initial_subject,@files,$from,$compose);
 
 # Behavior modification variables
 my (@to,@cc,$initial_reply_to,$initial_subject,@files,$from,$compose);
 
 # Behavior modification variables

-my ($chain_reply_to, $smtp_server) = (1, "localhost");
+my ($chain_reply_to, $smtp_server, $quiet) = (1, "localhost", 0);

 
 # Example reply to:
 #$initial_reply_to = ''; #<20050203173208.GA23964@foobar.com>';
 
 # Example reply to:
 #$initial_reply_to = ''; #<20050203173208.GA23964@foobar.com>';


@@ -51,6 +51,7 @@
                    "chain-reply-to!" => \$chain_reply_to,
                    "smtp-server=s" => \$smtp_server,
                    "compose" => \$compose,
                    "chain-reply-to!" => \$chain_reply_to,
                    "smtp-server=s" => \$smtp_server,
                    "compose" => \$compose,

+                   "quiet" => \$quiet,

         );
 
 # Now, let's fill any that aren't set in with defaults:
         );
 
 # Now, let's fill any that aren't set in with defaults:


@@ -267,8 +268,10 @@ sub send_message
 
        sendmail(%mail) or die $Mail::Sendmail::error;
 
 
        sendmail(%mail) or die $Mail::Sendmail::error;
 

-       print "OK. Log says:\n", $Mail::Sendmail::log;
-       print "\n\n"
+       unless ($quiet) {
+               print "OK. Log says:\n", $Mail::Sendmail::log;
+               print "\n\n"
+       }

 }
 
 
 }