File mailman-2.1.2-list_lists.patch of Package mailman.15639

Index: bin/list_lists
===================================================================
--- bin/list_lists.orig	2014-02-14 18:29:12.303052735 +0100
+++ bin/list_lists	2014-02-14 19:38:37.557981060 +0100
@@ -37,6 +37,13 @@
     -b / --bare
         Displays only the list name, with no description.
 
+    -r / --private-archives
+        Displays only those lists with private archives.
+
+    -u / --public-archives
+        Displays only those lists with public archives.
+        (compatibility spelling for -p / --public-archive)
+
     -h / --help
         Print this text and exit.
 
@@ -68,8 +75,10 @@
 
 def main():
     try:
-        opts, args = getopt.getopt(sys.argv[1:], 'apbV:h',
+        opts, args = getopt.getopt(sys.argv[1:], 'apbruV:h',
                                    ['advertised', 'public-archive', 'bare',
+                                    'private-archives',
+                                    'public-archives',
                                     'virtual-host-overview=',
                                     'help'])
     except getopt.error, msg:
@@ -79,17 +88,20 @@
     public = 0
     vhost = None
     bare = 0
+    private_archives = 0
     for opt, arg in opts:
         if opt in ('-h', '--help'):
             usage(0)
         elif opt in ('-a', '--advertised'):
             advertised = 1
-        elif opt in ('-p', '--public-archive'):
+        elif opt in ('-p', '--public-archive', '-u', '--public-archives'):
             public = 1
         elif opt in ('-V', '--virtual-host-overview'):
             vhost = arg
         elif opt in ('-b', '--bare'):
             bare = 1
+        elif opt in ('-r', '--private-archives'):
+            private_archives = 1
 
     names = Utils.list_names()
     names.sort()
@@ -102,6 +114,8 @@
             continue
         if public and mlist.archive_private:
             continue
+        if private_archives and not mlist.archive_private:
+            continue
         if vhost and mm_cfg.VIRTUAL_HOST_OVERVIEW and \
                vhost.find(mlist.web_page_url) == -1 and \
                mlist.web_page_url.find(vhost) == -1:
openSUSE Build Service is sponsored by