brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Split out email-in-mailman-list?.

Browse source
This commit is contained in:
Dominik Pantůček 2023-09-15 08:59:07 +02:00
parent 9c5d70aff4
commit bee78b9411
3 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/mailman-common.scm
View file

@ -30,12 +30,22 @@
( (
mailman-list-name mailman-list-name
mailman-list-members mailman-list-members
email-in-mailman-list?
) )
(import scheme) (import scheme
util-bst-lset)
;; Simple accessors ;; Simple accessors
(define mailman-list-name car) (define mailman-list-name car)
(define mailman-list-members cdr) (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))
) )

2
src/mailman.scm
View file

@ -32,6 +32,8 @@
mailman-list-members mailman-list-members
find-mailman-list find-mailman-list
email-in-mailman-list?
) )
(import scheme (import scheme

9
src/mailman2.scm
View file

@ -35,8 +35,6 @@
load-mailman2-list load-mailman2-list
load-mailman2-lists load-mailman2-lists
email-in-mailman-list?
add-email-to-mailman-list add-email-to-mailman-list
remove-email-from-mailman-list remove-email-from-mailman-list
@ -126,13 +124,6 @@
(cons (load-mailman2-list mln) res) (cons (load-mailman2-list mln) res)
(add1 idx)))))))) (add1 idx))))))))
;; 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))
;; Adds given email to given listname ;; Adds given email to given listname
(define (add-email-to-mailman-list listname email) (define (add-email-to-mailman-list listname email)
(print "Add " email " to " listname ".") (print "Add " email " to " listname ".")