From 6247ffbca5a5dbef5f6642890e651c3fde8fde1e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Fri, 19 May 2023 18:50:56 +0200 Subject: [PATCH] Improve output from mailman operations. --- src/mailman.scm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/mailman.scm b/src/mailman.scm index 250e077..d92cc18 100644 --- a/src/mailman.scm +++ b/src/mailman.scm @@ -144,7 +144,10 @@ (get-mailman-output-lines "add_members" "-r" "-" listname (sprintf "<<<\"~A\"" email)))) - (print result))) + (let loop ((lines result)) + (when (not (null? lines)) + (print " | " (car lines)) + (loop (cdr lines)))))) ;; Removes given email from given listname (define (remove-email-from-mailman-list listname email) @@ -153,7 +156,10 @@ (get-mailman-output-lines "remove_members" (car listname) (sprintf "\"~A\"" email)))) - (print result))) + (let loop ((lines result)) + (when (not (null? lines)) + (print " | " (car lines)) + (loop (cdr lines)))))) ;; Ensures given email is in given ML (define (mailman-ensure-member ml email)