Split out email-in-mailman-list?.

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))
+
  )

src/mailman.scm

@@ -32,6 +32,8 @@
   mailman-list-members
 
   find-mailman-list
+  
+  email-in-mailman-list?
   )
 
  (import scheme

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 ".")