From a71a71e04413573d05046876ccd38a03adc338e9 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:43:55 +0200
Subject: [PATCH] Fix ML removal.

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

diff --git a/src/mailman.scm b/src/mailman.scm
index 50476a8..192f42b 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -163,7 +163,7 @@
    (print "Remove " email " from " listname ".")
    (let ((result
 	  (get-mailman-output-lines
-	   "remove_members" (car listname)
+	   "remove_members" listname
 	   (sprintf "\"~A\"" email))))
      (let loop ((lines result))
        (when (not (null? lines))