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

All suspended and active.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-13 11:22:53 +02:00
parent b1e0c04a8a
commit 52332035ec
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

@ -300,12 +300,12 @@
(print-unpaired-table MB)) (print-unpaired-table MB))
((mlsync) ((mlsync)
(if (-normal-month-) (if (-normal-month-)
(mailman-sync-members internal-ml (mbase-active-emails MB)) (mailman-sync-members internal-ml (mbase-active-emails MB #:suspended #t))
(print "Mailman synchronization disabled with manually specified current month."))) (print "Mailman synchronization disabled with manually specified current month.")))
((mlcheck) ((mlcheck)
(let-values (((missing surplus) (let-values (((missing surplus)
(mailman-compare-members internal-ml (mailman-compare-members internal-ml
(mbase-active-emails MB)))) (mbase-active-emails MB #:suspended #t))))
(if (and (null? missing) (if (and (null? missing)
(null? surplus)) (null? surplus))
(print "Internal mailing list membership in sync.") (print "Internal mailing list membership in sync.")