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

Actually merge the emails into base.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 19:46:33 +02:00
parent 43aea708f9
commit 0f76514a46
3 changed files with 23 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/members-base.scm
View file

@ -244,15 +244,17 @@
string-ci<?))
;; Merges given ML members into members base
(define (members-base-merge-mailman mb listname emails)
(foldl (lambda (mb email)
(members-base-update mb
(lambda (mr)
(equal? (member-record-info 'mail)
email))
(lambda (mr)
(member-record-add-mailman mr listname))))
mb
emails))
(define (members-base-merge-mailman mb ml)
(let ((listname (car ml))
(emails (cdr ml)))
(foldl (lambda (mb email)
(members-base-update mb
(lambda (mr)
(equal? (member-record-info 'mail)
email))
(lambda (mr)
(member-add-mailman mr listname))))
mb
emails)))
)