From 693324d65dc15bcccc9026a97d139d95d8796d40 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 6 Apr 2023 15:52:49 +0200 Subject: [PATCH] Use basic mailman output. --- src/mailman.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/mailman.scm b/src/mailman.scm index 87ac5dc..ba6655e 100644 --- a/src/mailman.scm +++ b/src/mailman.scm @@ -45,12 +45,15 @@ (make-pathname (*mailman-bin*) bin)) ;; Mailman-specific process output lines capture - (define (get-mailman-output-lines bin) + (define (get-mailman-output-lines bin . args) (get-process-output-lines - (mailman-bin bin))) + (string-intersperse + (cons (mailman-bin bin) + args) + " "))) ;; Returns the list of available lists (define (list-mailman-lists) - (get-mailman-output-lines "list_lists")) + (get-mailman-output-lines "list_lists" "-b")) )