Finish mailman3 driver.

src/mailman3.scm

@@ -32,6 +32,7 @@
   list-mailman3-list-members
 
   add-email-to-mailman3-list
+  remove-email-from-mailman3-list
   )
 
  (import scheme
@@ -98,4 +99,17 @@
 	 (print " | " (car lines))
 	 (loop (cdr lines))))))
 
+ ;; Removes given email from given listname
+ (define (remove-email-from-mailman3-list lst email)
+   (print "Remove " email " from " lst ".")
+   (let ((result
+	  (get-mailman3-output-lines
+	   "delmembers"
+	   "-l" (format "~A@brmlab.cz" lst)
+	   "-m" email)))
+     (let loop ((lines result))
+       (when (not (null? lines))
+	 (print " | " (car lines))
+	 (loop (cdr lines))))))
+     
  )