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

Finish mbase renaming.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-13 20:19:11 +02:00
parent 8321c741dc
commit 0052dd0b75
4 changed files with 42 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/hackerbase.scm
View file

@ -207,13 +207,13 @@
(let ()
(define mls (load-mailman-lists))
(values (foldl (lambda (mb ml)
(members-base-merge-mailman mb ml))
(mbase-merge-mailman mb ml))
MB0
mls)
(find-mailman-list mls "internal")))
(let ()
(define internal-ml (load-mailman-list "internal"))
(values (members-base-merge-mailman MB0 internal-ml)
(values (mbase-merge-mailman MB0 internal-ml)
internal-ml)))
(values #f #f)))
@ -310,12 +310,12 @@
(print-unpaired-table MB))
((mlsync)
(if (-normal-month-)
(mailman-sync-members internal-ml (members-base-active-emails MB))
(mailman-sync-members internal-ml (mbase-active-emails MB))
(print "Mailman synchronization disabled with manually specified current month.")))
((mlcheck)
(let-values (((missing surplus)
(mailman-compare-members internal-ml
(members-base-active-emails MB))))
(mbase-active-emails MB))))
(if (and (null? missing)
(null? surplus))
(print "Internal mailing list membership in sync.")