diff --git a/src/mailman.scm b/src/mailman.scm
index bcd55cb..da084d0 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -156,6 +156,10 @@
 	 (mailman-ensure-member ml email)
 	 (loop (cdr emails)))))
    ;; Go through all emails in ml and remove all not in emails list
-   #f)
+   (let loop ((ml-emails (mailman-list-members ml)))
+     (when (not (null? ml-emails))
+       (let ((email (car ml-emails)))
+	 (mailman-ensure-not-member ml email)
+	 (loop (cdr ml-emails))))))
 
  )