get_maintainer: add ability to skip moderated mailing lists

Add a command line switch --no-moderated to skip L: mailing lists marked
with 'moderated'.

Some people prefer not emailing moderated mailing lists as the
moderation time can be indeterminate and some emails can be
intentionally dropped by a moderator.

This can cause fragmentation of email threads when some are subscribed
to a moderated list but others are not and emails are dropped.

Link: http://lkml.kernel.org/r/6f23c2918ad9fc744269feb8f909bdfb105c5afc.camel@perches.com
Signed-off-by: Joe Perches <joe@perches.com>
Tested-by: Peter Zijlstra (Intel) <peterz@infradead.org>
Signed-off-by: Andrew Morton <akpm@linux-foundation.org>
Signed-off-by: Linus Torvalds <torvalds@linux-foundation.org>

1 files changed, 10 insertions, 4 deletions

diff --git a/scripts/get_maintainer.pl b/scripts/get_maintainer.pl
index c1c088ef1420..5ef59214c555 100755
--- a/scripts/get_maintainer.pl
+++ b/scripts/get_maintainer.pl
@@ -27,6 +27,7 @@ my $email_usename = 1;
 my $email_maintainer = 1;
 my $email_reviewer = 1;
 my $email_list = 1;
+my $email_moderated_list = 1;
 my $email_subscriber_list = 0;
 my $email_git_penguin_chiefs = 0;
 my $email_git = 0;
@@ -248,6 +249,7 @@ if (!GetOptions(
                 'r!' => \$email_reviewer,
                 'n!' => \$email_usename,
                 'l!' => \$email_list,
+                'moderated!' => \$email_moderated_list,
                 's!' => \$email_subscriber_list,
                 'multiline!' => \$output_multiline,
                 'roles!' => \$output_roles,
@@ -1023,7 +1025,8 @@ MAINTAINER field selection options:
     --r => include reviewer(s) if any
     --n => include name 'Full Name <addr\@domain.tld>'
     --l => include list(s) if any
-    --s => include subscriber only list(s) if any
+    --moderated => include moderated lists(s) if any (default: true)
+    --s => include subscriber only list(s) if any (default: false)
     --remove-duplicates => minimize duplicate email names/addresses
     --roles => show roles (status:subsystem, git-signer, list, etc...)
     --rolestats => show roles and statistics (commits/total_commits, %)
@@ -1313,11 +1316,14 @@ sub add_categories {
                 } else {
                     if ($email_list) {
                         if (!$hash_list_to{lc($list_address)}) {
-                            $hash_list_to{lc($list_address)} = 1;
                             if ($list_additional =~ m/moderated/) {
-                                push(@list_to, [$list_address,
-                                                "moderated list${list_role}"]);
+                                if ($email_moderated_list) {
+                                    $hash_list_to{lc($list_address)} = 1;
+                                    push(@list_to, [$list_address,
+                                                    "moderated list${list_role}"]);
+                                }
                             } else {
+                                $hash_list_to{lc($list_address)} = 1;
                                 push(@list_to, [$list_address,
                                                 "open list${list_role}"]);
                             }