From 68bad91262aea287b61cfb4d06138e8b46937326 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 16 Nov 2023 19:15:43 +0100
Subject: [PATCH] Sync rada ML.

---
 src/hackerbase.scm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/src/hackerbase.scm b/src/hackerbase.scm
index 19da9ca..f8c9351 100644
--- a/src/hackerbase.scm
+++ b/src/hackerbase.scm
@@ -303,6 +303,11 @@
 	      (when (not (null? surplus))
 		(print "  Outsiders: " surplus)))))))
 
+(define (rada-ml-pred? mr)
+  (or (brmember-council? mr)
+      (brmember-chair? mr)
+      (brmember-revision? mr)))
+
 ;; Perform requested action
 (case (-action-)
   ((print-info)
@@ -316,10 +321,7 @@
 	 (newline)
 	 (check-mailing-list MLS "internal")
 	 (check-mailing-list MLS "rada"
-			     #:pred? (lambda (mr)
-				       (or (brmember-council? mr)
-					   (brmember-chair? mr)
-					   (brmember-revision? mr))))
+			     #:pred? rada-ml-pred?)
 	 (check-mailing-list MLS "rk" #:pred? brmember-revision?)
 	 (print-git-status)))
    (newline))
@@ -389,7 +391,10 @@
   ((mlsync)
    (cond ((-normal-month-)
 	  (mailman-sync-members (find-mailman-list MLS "internal")
-				(mbase-active-emails MB #:suspended #t)))
+				(mbase-active-emails MB #:suspended #t))
+	  (mailman-sync-members (find-mailman-list MLS "rada")
+				(mbase-active-emails MB
+						     #:pred rada-ml-pred?)))
 	 (else
 	  (print "Mailman synchronization disabled with manually specified current month."))))
   ((notify)