Implement listing mailman3 lists.
This commit is contained in:
parent
f5291607af
commit
6af6349a1e
3 changed files with 11 additions and 4 deletions
|
@ -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"))
|
||||
|
||||
)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue