Implement listing mailman3 lists.

src/Makefile

@@ -532,12 +532,12 @@ util-bst-lset.import.scm: $(UTIL-BST-LSET-SOURCES)
 
 MAILMAN-SOURCES=mailman.scm mailman2.import.scm			\
 	mailman-common.import.scm util-bst-lset.import.scm	\
-	configuration.import.scm
+	configuration.import.scm mailman3.import.scm
 
 mailman.o: mailman.import.scm
 mailman.import.scm: $(MAILMAN-SOURCES)
 
-MAILMAN-COMMON-SOURCES: mailman-common.scm
+MAILMAN-COMMON-SOURCES=mailman-common.scm util-bst-lset.import.scm
 
 mailman-common.o: mailman-common.import.scm
 mailman-common.import.scm: $(MAILMAN-COMMON-SOURCES)

src/mailman.scm

@@ -49,7 +49,8 @@
 	 mailman2
 	 mailman-common
 	 util-bst-lset
-	 configuration)
+	 configuration
+	 mailman3)
 
  ;; Syntax for simplifying export of case-version procedures
  (define-syntax define-mailman-proc
@@ -68,7 +69,8 @@
 	    ((2) (apply proc2 args))
 	    ((3) (apply proc3 args))))))))
 
- (define-mailman-proc list-mailman-lists list-mailman2-lists)
+ (define-mailman-proc list-mailman-lists
+   list-mailman2-lists list-mailman3-lists)
  (define-mailman-proc list-mailman-list-members list-mailman2-list-members)
  (define-mailman-proc load-mailman-list load-mailman2-list)
  (define-mailman-proc load-mailman-lists load-mailman2-lists)

src/mailman3.scm

@@ -28,6 +28,7 @@
 (module
  mailman3
  (
+  list-mailman3-lists
   )
 
  (import scheme
@@ -46,4 +47,8 @@
       cmd
       (append args0 args1))))
 
+ ;; Returns the list of available lists
+ (define (list-mailman3-lists)
+   (get-mailman3-output-lines "lists -q"))
+
  )