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

10
src/mailman.scm
View file

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