Split arguments and binary.
This commit is contained in:
parent
3b086a0f30
commit
3088aa7703
1 changed files with 2 additions and 1 deletions
|
@ -150,7 +150,8 @@
|
||||||
(print "Add " email " to " listname ".")
|
(print "Add " email " to " listname ".")
|
||||||
(let ((result
|
(let ((result
|
||||||
(mailman-send/recv
|
(mailman-send/recv
|
||||||
(list "add_members" "-r" "-" listname)
|
"add_members"
|
||||||
|
(list "-r" "-" listname)
|
||||||
(sprintf "<<<\"~A\"" email))))
|
(sprintf "<<<\"~A\"" email))))
|
||||||
(let loop ((lines result))
|
(let loop ((lines result))
|
||||||
(when (not (null? lines))
|
(when (not (null? lines))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue