Add councilml predicate to rada-ml-pred.

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))
 

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)))
 
  )