From 37775c99c79f8b66252bacd8395500dbf29c9e13 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 6 Apr 2023 15:56:08 +0200
Subject: [PATCH] List mailman list members.

---
 src/bbstool.scm | 3 ++-
 src/mailman.scm | 5 +++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/bbstool.scm b/src/bbstool.scm
index 3909845..496e7a3 100644
--- a/src/bbstool.scm
+++ b/src/bbstool.scm
@@ -48,7 +48,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	members-payments
 	web-static
 	environment
-	bank-account)
+	bank-account
+	mailman)
 
 ;; Print banner
 (print "bbstool 0.9.1 (c) 2023 Brmlab, z.s.")
diff --git a/src/mailman.scm b/src/mailman.scm
index a78907d..db10508 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -30,6 +30,7 @@
  (
   *mailman-bin*
   list-mailman-lists
+  list-mailman-list-members
   )
 
  (import scheme
@@ -57,4 +58,8 @@
  (define (list-mailman-lists)
    (get-mailman-output-lines "list_lists" "-b"))
 
+ ;; Returns the list of members of given list
+ (define (list-mailman-list-members lst)
+   (get-mailman-output-lines "list_members" lst))
+
  )