Move mailman struct constructor to common module.

src/mailman-common.scm

@@ -28,6 +28,8 @@
 (module
  mailman-common
  (
+  make-mailman-list
+
   mailman-list-name
   mailman-list-members
   
@@ -37,6 +39,11 @@
  (import scheme
 	 util-bst-lset)
 
+ ;; Creates a representation of basic mailman list information
+ (define (make-mailman-list name members)
+   (cons name
+	 members))
+
  ;; Simple accessors
  (define mailman-list-name car)
  (define mailman-list-members cdr)

src/mailman2.scm

@@ -83,11 +83,6 @@
     (get-mailman-output-lines "list_members" lst)
     string-ci<?))
 
- ;; Creates a representation of basic mailman list information
- (define (make-mailman-list name members)
-   (cons name
-	 members))
-
  ;; Loads a single mailman list as mailman structure, if
  ;; unsuccessfull, returns only a list with ML name and no member
  ;; emails.