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

Actually update mailman.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-13 11:58:45 +02:00
parent 52332035ec
commit d836149759
1 changed files with 12 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/mailman.scm
View file

@ -139,23 +139,21 @@
;; 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 ".")
(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 ".")
(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)