From d83614975927733ec1425d17d1fbb5300126e1f1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 13 May 2023 11:58:45 +0200 Subject: [PATCH] Actually update mailman. --- src/mailman.scm | 26 ++++++++++++-------------- 1 file changed, 12 insertions(+), 14 deletions(-) diff --git a/src/mailman.scm b/src/mailman.scm index b1a22f5..ae18bc5 100644 --- a/src/mailman.scm +++ b/src/mailman.scm @@ -139,23 +139,21 @@ ;; Adds given email to given listname (define (add-email-to-mailman-list listname email) - (if #t - (print "Add " email " to " listname ".") - (let ((result - (get-mailman-output-lines - "add_members" "-r" "-" listname - (sprintf "<<<\"~A\"" email)))) - (print result)))) + (print "Add " email " to " listname ".") + (let ((result + (get-mailman-output-lines + "add_members" "-r" "-" listname + (sprintf "<<<\"~A\"" email)))) + (print result))) ;; Removes given email from given listname (define (remove-email-from-mailman-list listname email) - (if #t - (print "Remove " email " from " listname ".") - (let ((result - (get-mailman-output-lines - "remove_members" (car listname) - (sprintf "\"~A\"" email)))) - (print result)))) + (print "Remove " email " from " listname ".") + (let ((result + (get-mailman-output-lines + "remove_members" (car listname) + (sprintf "\"~A\"" email)))) + (print result))) ;; Ensures given email is in given ML (define (mailman-ensure-member ml email)