Implement listing mailman3 lists.

This commit is contained in:
Dominik Pantůček 2023-09-15 17:35:12 +02:00
parent f5291607af
commit 6af6349a1e
3 changed files with 11 additions and 4 deletions

View file

@ -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"))
)