From 30d08b34aa268e3bd4c93fa712e2eac66f1a15b3 Mon Sep 17 00:00:00 2001 From: Ryan Anderson Date: Thu, 2 Feb 2006 11:56:06 -0500 Subject: [PATCH] git-send-email: Add --quiet to reduce some of the chatter when sending emails. Signed-off-by: Ryan Anderson Signed-off-by: Junio C Hamano --- git-send-email.perl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/git-send-email.perl b/git-send-email.perl index 51b7513b..2977b9ad 100755 --- a/git-send-email.perl +++ b/git-send-email.perl @@ -34,7 +34,7 @@ my $compose_filename = ".msg.$$"; 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>'; @@ -51,6 +51,7 @@ my $rc = GetOptions("from=s" => \$from, "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: @@ -267,8 +268,10 @@ sub send_message 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" + } } -- 2.11.0