From 52332035ece4df38e23e19ed58a8c137eb7fc48f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 13 May 2023 11:22:53 +0200 Subject: [PATCH] All suspended and active. --- src/hackerbase.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/hackerbase.scm b/src/hackerbase.scm index 2286dc1..97479e0 100644 --- a/src/hackerbase.scm +++ b/src/hackerbase.scm @@ -300,12 +300,12 @@ (print-unpaired-table MB)) ((mlsync) (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."))) ((mlcheck) (let-values (((missing surplus) (mailman-compare-members internal-ml - (mbase-active-emails MB)))) + (mbase-active-emails MB #:suspended #t)))) (if (and (null? missing) (null? surplus)) (print "Internal mailing list membership in sync.")