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

Use send/recv approach.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-19 19:45:30 +02:00
parent 517e1baeb6
commit 3b086a0f30
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/mailman.scm
View file

@ -149,8 +149,8 @@
(define (add-email-to-mailman-list listname email) (define (add-email-to-mailman-list listname email)
(print "Add " email " to " listname ".") (print "Add " email " to " listname ".")
(let ((result (let ((result
(get-mailman-output-lines (mailman-send/recv
"add_members" "-r" "-" listname (list "add_members" "-r" "-" listname)
(sprintf "<<<\"~A\"" email)))) (sprintf "<<<\"~A\"" email))))
(let loop ((lines result)) (let loop ((lines result))
(when (not (null? lines)) (when (not (null? lines))