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

Ensure members are members.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 21:11:34 +02:00
parent 8e661aae1c
commit d66e240078
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/mailman.scm
View file

@ -149,6 +149,13 @@
;; Ensures given ML subscribers are exactly what is in emails list ;; Ensures given ML subscribers are exactly what is in emails list
(define (mailman-sync-members ml emails) (define (mailman-sync-members ml emails)
;; Ensure all emails in ml
(let loop ((emails emails))
(when (not (null? emails))
(let ((email (car emails)))
(mailman-ensure-member ml email)
(loop (cdr emails)))))
;; Go through all emails in ml and remove all not in emails list
#f) #f)
) )