From 43aea708f991b9e751db5ee9e97673826a92224f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 6 Apr 2023 19:41:16 +0200
Subject: [PATCH] Implement merging whole ML into MB.

---
 src/members-base.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/members-base.scm b/src/members-base.scm
index 14cc71f..06b3ae4 100644
--- a/src/members-base.scm
+++ b/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))
+
  )