From b0b558c8d400cfce8a6993af1fe8d74e34f3caf9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Wed, 16 Apr 2025 22:08:52 +0200
Subject: [PATCH] Add councilml predicate to rada-ml-pred.

---
 src/brmember.scm    | 2 ++
 src/mailinglist.scm | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/brmember.scm b/src/brmember.scm
index cb065f4..ac1199b 100644
--- a/src/brmember.scm
+++ b/src/brmember.scm
@@ -65,6 +65,7 @@
 
   brmember-chair?
   brmember-council?
+  brmember-councilml?
   brmember-revision?
   brmember-grant?
   
@@ -394,6 +395,7 @@
  ;; Predicates for all organizational bodies recognized
  (define brmember-chair? (brmember-body? 'chair))
  (define brmember-council? (brmember-body? 'council))
+ (define brmember-councilml? (brmember-body? 'councilml))
  (define brmember-revision? (brmember-body? 'revision))
  (define brmember-grant? (brmember-body? 'grant))
 
diff --git a/src/mailinglist.scm b/src/mailinglist.scm
index 73f3e5b..b88a338 100644
--- a/src/mailinglist.scm
+++ b/src/mailinglist.scm
@@ -73,6 +73,7 @@
  (define (rada-ml-pred? mr)
    (or (brmember-council? mr)
        (brmember-chair? mr)
-       (brmember-revision? mr)))
+       (brmember-revision? mr)
+       (brmember-councilml? mr)))
 
  )