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

Fix info without loaded ML.

Browse source
This commit is contained in:
Dominik Pantůček 2024-01-02 13:01:57 +01:00
parent 0e82221c16
commit 3b68a9f834
1 changed files with 18 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/hackerbase.scm
View file

@ -288,6 +288,7 @@
(define* (check-mailing-list mls name #:pred? (pred? #f))
(define ml (find-mailman-list mls name))
(when ml
(let-values (((missing surplus)
(mailman-compare-members ml
(mbase-active-emails MB
@ -304,7 +305,7 @@
(when (not (null? missing))
(print " Missing: " missing))
(when (not (null? surplus))
(print " Outsiders: " surplus)))))))
(print " Outsiders: " surplus))))))))
(define (rada-ml-pred? mr)
(or (brmember-council? mr)