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

Ensure not members.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 21:15:30 +02:00
parent d66e240078
commit 2c80787fd8
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/mailman.scm
View file

@ -156,6 +156,10 @@
(mailman-ensure-member ml email) (mailman-ensure-member ml email)
(loop (cdr emails))))) (loop (cdr emails)))))
;; Go through all emails in ml and remove all not in emails list ;; Go through all emails in ml and remove all not in emails list
#f) (let loop ((ml-emails (mailman-list-members ml)))
(when (not (null? ml-emails))
(let ((email (car ml-emails)))
(mailman-ensure-not-member ml email)
(loop (cdr ml-emails))))))
) )