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

Fix sync loops.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-13 12:01:23 +02:00
parent dc32a3b12a
commit 41001e4266
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/mailman.scm
View file

@ -180,10 +180,12 @@
(mailman-compare-members ml emails)))
(let ((listname (mailman-list-name ml)))
(let loop ((emails missing))
(when (not (null? emails))
(add-email-to-mailman-list listname (car emails))
(loop (cdr emails)))
(loop (cdr emails))))
(let loop ((emails surplus))
(when (not (null? emails))
(remove-email-from-mailman-list listname (car emails))
(loop (cdr loop))))))
(loop (cdr loop)))))))
)