Member record mailman infrastructure.

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)

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