brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix MLS.

Browse source
This commit is contained in:
Dominik Pantůček 2023-11-16 18:52:08 +01:00
parent 3f2283e1ca
commit 08281fc735
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/hackerbase.scm
View file

@ -234,7 +234,7 @@
(mbase-merge-mailman mb ml)) (mbase-merge-mailman mb ml))
MB0 MB0
mls) mls)
MLS)) mls))
(values #f #f))) (values #f #f)))
(define internal-ml (if MLS (find-mailman-list MLS "internal") #f)) (define internal-ml (if MLS (find-mailman-list MLS "internal") #f))
(define council-ml (if MLS (find-mailman-list MLS "rada") #f)) (define council-ml (if MLS (find-mailman-list MLS "rada") #f))
@ -288,7 +288,7 @@
(list->string (list->string
(cons (cons
(char-upcase (car l)) (char-upcase (car l))
(cdr l))))) (map char-downcase (cdr l))))))
(define (check-mailing-list mls name) (define (check-mailing-list mls name)
(define ml (find-mailman-list mls name)) (define ml (find-mailman-list mls name))