Split out common functions to separate module.

src/mailman2.scm

@@ -35,9 +35,6 @@
   load-mailman2-list
   load-mailman2-lists
   
-  mailman-list-name
-  mailman-list-members
-  
   email-in-mailman-list?
   
   add-email-to-mailman-list
@@ -60,7 +57,8 @@
 	 util-list
 	 progress
 	 util-bst-lset
-	 util-io)
+	 util-io
+	 mailman-common)
 
  ;; Where does the mailman binaries reside
  (define *mailman2-bin* (make-parameter "/usr/lib/mailman/bin"))
@@ -99,10 +97,6 @@
    (cons name
 	 members))
 
- ;; Simple accessors
- (define mailman-list-name car)
- (define mailman-list-members cdr)
-
  ;; Loads a single mailman list as mailman structure, if
  ;; unsuccessfull, returns only a list with ML name and no member
  ;; emails.