Mailman utility functions.

src/mailman.scm

@@ -129,17 +129,23 @@
 	   (sprintf "<<<\"~A\"" email))))
      (print result)))
 
+ ;; Removes given email from given listname
  (define (remove-email-from-mailman-list listname email)
-   #f)
+   (let ((result
+	  (get-mailman-output-lines
+	   "remove_members" (car listname)
+	   (sprintf "\"~A\"" email))))
+     (print result)))
 
  ;; Ensures given email is in given ML
  (define (mailman-ensure-member ml email)
-   
+   (when (not (email-in-mailman-list? ml email))
-   #f)
+     (add-email-to-mailman-list (mailman-list-name ml) email)))
 
  ;; Makes sure given member is removed
  (define (mailman-ensure-not-member ml email)
-   #f)
+   (when (email-in-mailman-list? ml email)
+     (remove-email-from-mailman-list (mailman-list-name ml) email)))
 
  ;; Ensures given ML subscribers are exactly what is in emails list
  (define (mailman-sync-members ml emails)