From eec8de4e85d5db2034431c036a0699c298c888cd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 6 Apr 2023 21:51:05 +0200 Subject: [PATCH] Remove only those not active. --- src/mailman.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/mailman.scm b/src/mailman.scm index 953b984..01acbb1 100644 --- a/src/mailman.scm +++ b/src/mailman.scm @@ -163,7 +163,8 @@ (let loop ((ml-emails (mailman-list-members ml))) (when (not (null? ml-emails)) (let ((email (car ml-emails))) - (mailman-ensure-not-member ml email) + (when (member email emails) + (mailman-ensure-not-member ml email)) (loop (cdr ml-emails)))))) )