From db9f98dc7ede348e30c1c5ffaffbbb1320c26c3f 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 18:56:33 +0100
Subject: [PATCH] Add support for pred.

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

diff --git a/src/hackerbase.scm b/src/hackerbase.scm
index 2a071e1..afb38fd 100644
--- a/src/hackerbase.scm
+++ b/src/hackerbase.scm
@@ -291,11 +291,14 @@
       (char-upcase (car l))
       (map char-downcase (cdr l))))))
 
-(define (check-mailing-list mls name)
+(define* (check-mailing-list mls name #:pred? (pred? #f))
   (define ml (find-mailman-list mls name))
   (let-values (((missing surplus)
 		(mailman-compare-members ml
-					 (mbase-active-emails MB #:suspended #t))))
+					 (mbase-active-emails MB
+							      #:suspended #t
+							      #:pred? pred?
+							      ))))
     (if (null? (cdr ml))
 	(print "Skipping ML check - not loaded")
 	(if (and (null? missing)