From d802cf13c80798d1686d6b304d0ab3b26c03956d 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:38:15 +0200
Subject: [PATCH] Implement listing list members for mailman3.

---
 src/mailman.scm  | 3 ++-
 src/mailman3.scm | 8 ++++++++
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/mailman.scm b/src/mailman.scm
index 178d2f6..4ff85c0 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -71,7 +71,8 @@
 
  (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 list-mailman-list-members
+   list-mailman2-list-members list-mailman3-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 1442c08..9ad34b5 100644
--- a/src/mailman3.scm
+++ b/src/mailman3.scm
@@ -29,10 +29,12 @@
  mailman3
  (
   list-mailman3-lists
+  list-mailman3-list-members
   )
 
  (import scheme
 	 (chicken string)
+	 (chicken sort)
 	 configuration
 	 util-io)
 
@@ -51,4 +53,10 @@
  (define (list-mailman3-lists)
    (get-mailman3-output-lines "lists -q"))
 
+ ;; Returns the list of members of given list
+ (define (list-mailman3-list-members lst)
+   (sort
+    (get-mailman3-output-lines "members" lst "-e")
+    string-ci<?))
+
  )