From 00ec081a39718fc2e60859a385b91386dcff928a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 6 Apr 2023 19:14:08 +0200
Subject: [PATCH] Member record mailman infrastructure.

---
 src/mailman.scm       |  2 +-
 src/member-record.scm | 13 +++++++++++++
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/src/mailman.scm b/src/mailman.scm
index 40a03ba..a5c427b 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -67,7 +67,7 @@
  (define (list-mailman-list-members lst)
    (sort
     (get-mailman-output-lines "list_members" lst)
-    string<?))
+    string-ci<?))
 
  ;; Creates a representation of basic mailman list information
  (define (make-mailman-list name members)
diff --git a/src/member-record.scm b/src/member-record.scm
index 83421d1..2ac32e9 100644
--- a/src/member-record.scm
+++ b/src/member-record.scm
@@ -68,6 +68,9 @@
   member-record-add-payment
   member-payments
 
+  member-mailman
+  member-add-mailman
+
   member-record-tests!
   )
 
@@ -360,6 +363,16 @@
 		    (month<=? month (*current-month*))))
 	   (dict-ref mr 'payments '())))
 
+ ;; Returns a list of MLs this member is subscribed to
+ (define (member-mailman mr)
+   (dict-ref mr 'mailman '()))
+
+ ;; Adds given ML to given member record
+ (define (member-add-mailman mr ml)
+   (dict-set mr 'mailman
+	     (cons ml
+		   (member-mailman mr))))
+
  ;; Self-tests
  (define (member-record-tests!)
    (run-tests