From d634debd3e7a83e4186d9061697e4a312ae6687e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 6 Apr 2023 21:18:43 +0200 Subject: [PATCH] Make all mailman operations a no-op. --- src/mailman.scm | 24 ++++++++++++++---------- 1 file changed, 14 insertions(+), 10 deletions(-) diff --git a/src/mailman.scm b/src/mailman.scm index da084d0..953b984 100644 --- a/src/mailman.scm +++ b/src/mailman.scm @@ -123,19 +123,23 @@ ;; Adds given email to given listname (define (add-email-to-mailman-list listname email) - (let ((result - (get-mailman-output-lines - "add_members" "-r" "-" listname - (sprintf "<<<\"~A\"" email)))) - (print result))) + (if #t + (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) - (let ((result - (get-mailman-output-lines - "remove_members" (car listname) - (sprintf "\"~A\"" email)))) - (print result))) + (if #t + (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)