# [PATCH 2/2] git-send-email: Add --quiet to reduce some of the chatter when sending emails. 2 messages from 2006-02-02 to 2006-02-02. Participants: Ryan Anderson. Thread: https://gitlist.dev/t/3220 ## Ryan Anderson, 2006-02-02 16:56 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> URL: https://gitlist.dev/e/11388993664094-git-send-email-ryan%40michonline.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 ``` ## Ryan Anderson, 2006-02-02 16:56 Subject: [PATCH 1/2] Provide a more meaningful initial "From " line when using --compose in git-send-email. Message-ID: <11388993663675-git-send-email-ryan@michonline.com> URL: https://gitlist.dev/e/11388993663675-git-send-email-ryan%40michonline.com In-Reply-To: <11388993661745-git-send-email-ryan@michonline.com> ``` git-send-email, when used with --compose, provided the user with a mbox-format file to edit. Some users, however, were confused by the leading, blank, "From " line, so this change puts the value that will appear on the From: line of the actual email on this line, along with a note that the line is ignored. Signed-off-by: Ryan Anderson --- git-send-email.perl | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) c6b0c22e482aa6fe314e4be077d705c98fee7bf2 diff --git a/git-send-email.perl b/git-send-email.perl index ec1428d..51b7513 100755 --- a/git-send-email.perl +++ b/git-send-email.perl @@ -125,7 +125,7 @@ if ($compose) { # effort to have it be unique open(C,">",$compose_filename) or die "Failed to open for writing $compose_filename: $!"; - print C "From \n"; + print C "From $from # This line is ignored.\n"; printf C "Subject: %s\n\n", $initial_subject; printf C <