From 6af6349a1ebb0f13cc6100c9ff216c1a883d234e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 15 Sep 2023 17:35:12 +0200
Subject: [PATCH] Implement listing mailman3 lists.

---
 src/Makefile     | 4 ++--
 src/mailman.scm  | 6 ++++--
 src/mailman3.scm | 5 +++++
 3 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/src/Makefile b/src/Makefile
index ca04a66..4a62a53 100644
--- a/src/Makefile
+++ b/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)
diff --git a/src/mailman.scm b/src/mailman.scm
index e8eb02a..178d2f6 100644
--- a/src/mailman.scm
+++ b/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)
diff --git a/src/mailman3.scm b/src/mailman3.scm
index 2761ad9..1442c08 100644
--- a/src/mailman3.scm
+++ b/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"))
+
  )