brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Make all mailman operations a no-op.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 21:18:43 +02:00
parent 2c80787fd8
commit d634debd3e
1 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/mailman.scm
View file

@ -123,19 +123,23 @@
;; Adds given email to given listname ;; Adds given email to given listname
(define (add-email-to-mailman-list listname email) (define (add-email-to-mailman-list listname email)
(if #t
(print "Add " email " to " listname ".")
(let ((result (let ((result
(get-mailman-output-lines (get-mailman-output-lines
"add_members" "-r" "-" listname "add_members" "-r" "-" listname
(sprintf "<<<\"~A\"" email)))) (sprintf "<<<\"~A\"" email))))
(print result))) (print result))))
;; Removes given email from given listname ;; Removes given email from given listname
(define (remove-email-from-mailman-list listname email) (define (remove-email-from-mailman-list listname email)
(if #t
(print "Remove " email " from " listname ".")
(let ((result (let ((result
(get-mailman-output-lines (get-mailman-output-lines
"remove_members" (car listname) "remove_members" (car listname)
(sprintf "\"~A\"" email)))) (sprintf "\"~A\"" email))))
(print result))) (print result))))
;; Ensures given email is in given ML ;; Ensures given email is in given ML
(define (mailman-ensure-member ml email) (define (mailman-ensure-member ml email)