From 41001e42667f051f8fc300dcd61266413c44628f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 13 May 2023 12:01:23 +0200 Subject: [PATCH] Fix sync loops. --- src/mailman.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/mailman.scm b/src/mailman.scm index ae18bc5..250e077 100644 --- a/src/mailman.scm +++ b/src/mailman.scm @@ -180,10 +180,12 @@ (mailman-compare-members ml emails))) (let ((listname (mailman-list-name ml))) (let loop ((emails missing)) - (add-email-to-mailman-list listname (car emails)) - (loop (cdr emails))) + (when (not (null? emails)) + (add-email-to-mailman-list listname (car emails)) + (loop (cdr emails)))) (let loop ((emails surplus)) - (remove-email-from-mailman-list listname (car emails)) - (loop (cdr loop)))))) + (when (not (null? emails)) + (remove-email-from-mailman-list listname (car emails)) + (loop (cdr loop))))))) )