From: Ryan Anderson Date: Thu, 02 Feb 2006 16:56:06 GMT Subject: [PATCH 2/2] git-send-email: Add --quiet to reduce some of the chatter when sending emails. Message-ID: <11388993664094-git-send-email-ryan@michonline.com> In-Reply-To: <11388993663675-git-send-email-ryan@michonline.com> Signed-off-by: Ryan Anderson --- git-send-email.perl | 9 ++++++--- 1 files changed, 6 insertions(+), 3 deletions(-) 3dcbd6298dc6fb4a903404cb9c47e3690bf2e01a diff --git a/git-send-email.perl b/git-send-email.perl index 51b7513..ca1fa37 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" + } } -- 1.1.4.g3dcbd