Ensure members are members.

src/mailman.scm

@@ -149,6 +149,13 @@
 
  ;; Ensures given ML subscribers are exactly what is in emails list
  (define (mailman-sync-members ml emails)
+   ;; Ensure all emails in ml
+   (let loop ((emails emails))
+     (when (not (null? emails))
+       (let ((email (car emails)))
+	 (mailman-ensure-member ml email)
+	 (loop (cdr emails)))))
+   ;; Go through all emails in ml and remove all not in emails list
    #f)
 
  )