From 8bf4a882e3745a6ca7168fd17faae831c61a3175 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 6 Apr 2023 21:53:08 +0200
Subject: [PATCH] Negate.

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

diff --git a/src/mailman.scm b/src/mailman.scm
index 01acbb1..6ac4713 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -163,7 +163,7 @@
    (let loop ((ml-emails (mailman-list-members ml)))
      (when (not (null? ml-emails))
        (let ((email (car ml-emails)))
-	 (when (member email emails)
+	 (when (not (member email emails))
 	   (mailman-ensure-not-member ml email))
 	 (loop (cdr ml-emails))))))