Split out email-in-mailman-list?.

2023-09-15 08:59:07 +02:00 · 2023-09-15 08:59:07 +02:00 · bee78b9411
commit bee78b9411
parent 9c5d70aff4
3 changed files with 13 additions and 10 deletions
--- a/src/mailman-common.scm
+++ b/src/mailman-common.scm
@ -30,12 +30,22 @@
 (
  mailman-list-name
  mailman-list-members
+  
+  email-in-mailman-list?
  )

- (import scheme)
+ (import scheme
+	 util-bst-lset)

 ;; Simple accessors
 (define mailman-list-name car)
 (define mailman-list-members cdr)

+ ;; Returns #t if the email is in given ml
+ (define (email-in-mailman-list? ml email)
+   (if (lset-member? (list->lset (mailman-list-members ml) string-ci=?)
+		     email)
+       #t
+       #f))
+
 )