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

Fix active emails listing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-18 15:35:04 +02:00
parent 0126efb6f6
commit 164795d3d6
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/mbase.scm
View file

@ -268,12 +268,13 @@
(map (map
(lambda (mr) (lambda (mr)
(brmember-info mr 'mail)) (brmember-info mr 'mail))
(filter (lambda (mr) (bdict-filter-values
(or (and active (mbase-members mb)
(brmember-active? mr)) (lambda (mr)
(and suspended (or (and active
(brmember-suspended? mr)))) (brmember-active? mr))
(mbase-members mb)))) (and suspended
(brmember-suspended? mr)))))))
string-ci<?)) string-ci<?))
;; Merges given ML members into members base ;; Merges given ML members into members base