From bee78b9411b22ab35e365a986b01d3571714fd57 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 15 Sep 2023 08:59:07 +0200
Subject: [PATCH] Split out email-in-mailman-list?.

---
 src/mailman-common.scm | 12 +++++++++++-
 src/mailman.scm        |  2 ++
 src/mailman2.scm       |  9 ---------
 3 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/src/mailman-common.scm b/src/mailman-common.scm
index 58ae982..22257fd 100644
--- a/src/mailman-common.scm
+++ b/src/mailman-common.scm
@@ -30,12 +30,22 @@
  (
   mailman-list-name
   mailman-list-members
+  
+  email-in-mailman-list?
   )
 
- (import scheme)
+ (import scheme
+	 util-bst-lset)
 
  ;; Simple accessors
  (define mailman-list-name car)
  (define mailman-list-members cdr)
 
+ ;; Returns #t if the email is in given ml
+ (define (email-in-mailman-list? ml email)
+   (if (lset-member? (list->lset (mailman-list-members ml) string-ci=?)
+		     email)
+       #t
+       #f))
+
  )
diff --git a/src/mailman.scm b/src/mailman.scm
index 193bede..99e9301 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -32,6 +32,8 @@
   mailman-list-members
 
   find-mailman-list
+  
+  email-in-mailman-list?
   )
 
  (import scheme
diff --git a/src/mailman2.scm b/src/mailman2.scm
index 855e28d..3a8dd53 100644
--- a/src/mailman2.scm
+++ b/src/mailman2.scm
@@ -35,8 +35,6 @@
   load-mailman2-list
   load-mailman2-lists
   
-  email-in-mailman-list?
-  
   add-email-to-mailman-list
   remove-email-from-mailman-list
   
@@ -126,13 +124,6 @@
 		    (cons (load-mailman2-list mln) res)
 		    (add1 idx))))))))
 
- ;; Returns #t if the email is in given ml
- (define (email-in-mailman-list? ml email)
-   (if (lset-member? (list->lset (mailman-list-members ml) string-ci=?)
-		     email)
-       #t
-       #f))
-
  ;; Adds given email to given listname
  (define (add-email-to-mailman-list listname email)
    (print "Add " email " to " listname ".")