Fix passing members to remove_members mailman binary.

This commit is contained in:
Dominik Pantůček 2023-06-29 17:45:56 +02:00
parent 43b8fbb1ab
commit d471981545

View file

@ -164,7 +164,7 @@
(let ((result
(get-mailman-output-lines
"remove_members" listname
(sprintf "\"~A\"" email))))
(sprintf "~A" email))))
(let loop ((lines result))
(when (not (null? lines))
(print " | " (car lines))