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

Use email string.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-19 19:48:17 +02:00
parent 3088aa7703
commit d2880b6337
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/mailman.scm
View file

@ -152,7 +152,7 @@
(mailman-send/recv (mailman-send/recv
"add_members" "add_members"
(list "-r" "-" listname) (list "-r" "-" listname)
(sprintf "<<<\"~A\"" email)))) email)))
(let loop ((lines result)) (let loop ((lines result))
(when (not (null? lines)) (when (not (null? lines))
(print " | " (car lines)) (print " | " (car lines))