From 08281fc735e2e270ff6ba1ebdffc5b4dd275297a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 16 Nov 2023 18:52:08 +0100
Subject: [PATCH] Fix MLS.

---
 src/hackerbase.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/hackerbase.scm b/src/hackerbase.scm
index 691dd0d..0eb7fc7 100644
--- a/src/hackerbase.scm
+++ b/src/hackerbase.scm
@@ -234,7 +234,7 @@
 			 (mbase-merge-mailman mb ml))
 		       MB0
 		       mls)
-		MLS))
+		mls))
       (values #f #f)))
 (define internal-ml (if MLS (find-mailman-list MLS "internal") #f))
 (define council-ml (if MLS (find-mailman-list MLS "rada") #f))
@@ -288,7 +288,7 @@
     (list->string
      (cons
       (char-upcase (car l))
-      (cdr l)))))
+      (map char-downcase (cdr l))))))
 
 (define (check-mailing-list mls name)
   (define ml (find-mailman-list mls name))