From 1f9f2503ab861b1464bf0f05409c1448498ae3a0 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 09:06:23 +0200
Subject: [PATCH] Move mailman struct constructor to common module.

---
 src/mailman-common.scm | 7 +++++++
 src/mailman2.scm       | 5 -----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/src/mailman-common.scm b/src/mailman-common.scm
index 22257fd..839a430 100644
--- a/src/mailman-common.scm
+++ b/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)
diff --git a/src/mailman2.scm b/src/mailman2.scm
index 5565506..9b10cb0 100644
--- a/src/mailman2.scm
+++ b/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.