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

Remove only those not active.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 21:51:05 +02:00
parent 24cc6861b2
commit eec8de4e85
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/mailman.scm
View file

@ -163,7 +163,8 @@
(let loop ((ml-emails (mailman-list-members ml)))
(when (not (null? ml-emails))
(let ((email (car ml-emails)))
(mailman-ensure-not-member ml email)
(when (member email emails)
(mailman-ensure-not-member ml email))
(loop (cdr ml-emails))))))
)