From 3dbd84ea35eac0b020f19920e8ec5a725bf1df76 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Wed, 28 Jun 2023 21:45:26 +0200
Subject: [PATCH] Fix sync re-read.

---
 src/mailman.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mailman.scm b/src/mailman.scm
index 192f42b..997b5f4 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -201,6 +201,6 @@
        (let loop ((emails surplus))
 	 (when (not (null? emails))
 	   (remove-email-from-mailman-list listname (car emails))
-	   (loop (cdr loop)))))))
+	   (loop (cdr emails)))))))
 
  )