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

Sync mlcheck with mlsync.

Browse source
This commit is contained in:
Dominik Pantůček 2024-01-16 21:54:10 +01:00
parent a64ab232c6
commit 939af54e87
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/hackerbase.scm
View file

@ -286,13 +286,13 @@
(print " " (car keys) ": " (length (ldict-ref status (car keys)))))
(loop (cdr keys)))))))
(define* (check-mailing-list mls name #:pred? (pred? #f))
(define* (check-mailing-list mls name #:pred? (pred? #f) #:suspended (suspended #f))
(define ml (find-mailman-list mls name))
(when ml
(let-values (((missing surplus)
(mailman-compare-members ml
(mbase-active-emails MB
#:suspended #t
#:suspended suspended
#:pred? pred?
))))
(if (null? (cdr ml))
@ -323,7 +323,7 @@
(let ()
(print-members-base-table MB)
(newline)
(check-mailing-list MLS "internal")
(check-mailing-list MLS "internal" #:suspended #t)
(check-mailing-list MLS "rada"
#:pred? rada-ml-pred?)
(check-mailing-list MLS "rk" #:pred? brmember-revision?)