From: Felipe Balbi <felipe.lima@indt.org.br>
This patch adds a --suppress-all option to avoid sending emails to everybody but the ones listed by --to option.
Signed-off-by: Felipe Balbi <felipe.lima@indt.org.br> --- git-send-email.perl | 16 ++++++++++++---- 1 files changed, 12 insertions(+), 4 deletions(-)
Show changes to git-send-email.perl +12 −4
diff --git a/git-send-email.perl b/git-send-email.perl index d8319d4..e845c5f 100755 --- a/git-send-email.perl +++ b/git-send-email.perl @@ -88,6 +88,9 @@ Options: --suppress-from Suppress sending emails to yourself if your address appears in a From: line. Defaults to off. + --suppress-all Suppress sending emails to everybody but addresses + listed by --to option. + --thread Specify that the "In-Reply-To:" header should be set on all emails. Defaults to on. @@ -171,7 +174,7 @@ if ($@) { my ($quiet, $dry_run) = (0, 0); # Variables with corresponding config settings -my ($thread, $chain_reply_to, $suppress_from, $signed_off_cc, $cc_cmd); +my ($thread, $chain_reply_to, $suppress_from, $suppress_all, $signed_off_cc, $cc_cmd); my ($smtp_server, $smtp_authuser, $smtp_authpass, $smtp_ssl); my ($identity, $aliasfiletype, @alias_files); @@ -179,6 +182,7 @@ my %config_bool_settings = ( "thread" => [\$thread, 1], "chainreplyto" => [\$chain_reply_to, 1], "suppressfrom" => [\$suppress_from, 0], + "suppressall" => [\$suppress_all, 0], "signedoffcc" => [\$signed_off_cc, 1], "smtpssl" => [\$smtp_ssl, 0], ); @@ -212,6 +216,7 @@ my $rc = GetOptions("sender|from=s" => \$sender, "quiet" => \$quiet, "cc-cmd=s" => \$cc_cmd, "suppress-from!" => \$suppress_from, + "suppress-all!" => \$suppress_all, "signed-off-cc|signed-off-by-cc!" => \$signed_off_cc, "dry-run" => \$dry_run, "envelope-sender=s" => \$envelope_sender, @@ -662,8 +667,11 @@ foreach my $t (@files) { $subject = $1; } elsif (/^(Cc|From):\s+(.*)$/) { - if (unquote_rfc2047($2) eq $sender) { - next if ($suppress_from); + if (unquote_rfc2047($2)) { + next if ($suppress_all); + } + elsif (unquote_rfc2047($2) eq $sender) { + next if ($suppress_from|$suppress_all); } elsif ($1 eq 'From') { $author = unquote_rfc2047($2); @@ -700,7 +708,7 @@ foreach my $t (@files) { } } else { $message .= $_; - if (/^(Signed-off-by|Cc): (.*)$/i && $signed_off_cc) { + if (/^(Signed-off-by|Cc): (.*)$/i && $signed_off_cc && !$suppress_all) { my $c = $2; chomp $c; push @cc, $c;
-- 1.5.3.1.91.gd3392
