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))) (let loop ((ml-emails (mailman-list-members ml)))
(when (not (null? ml-emails)) (when (not (null? ml-emails))
(let ((email (car 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)))))) (loop (cdr ml-emails))))))
) )