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)) + )