Implement merging whole ML into MB.

src/members-base.scm

@@ -44,6 +44,7 @@
   members-base-add-unpaired
   members-base-unpaired
   members-base-active-emails
+  members-base-merge-mailman
   )
 
  (import scheme
@@ -242,4 +243,16 @@
       (members-base-members mb)))
     string-ci<?))
 
+ ;; Merges given ML members into members base
+ (define (members-base-merge-mailman mb listname emails)
+   (foldl (lambda (mb email)
+	    (members-base-update mb
+				 (lambda (mr)
+				   (equal? (member-record-info 'mail)
+					   email))
+				 (lambda (mr)
+				   (member-record-add-mailman mr listname))))
+	  mb
+	  emails))
+
  )