Fix retrieving member's email.

This commit is contained in:
Dominik Pantůček 2023-04-06 19:47:24 +02:00
parent 0f76514a46
commit 262c67a3b9

View file

@ -250,7 +250,7 @@
(foldl (lambda (mb email) (foldl (lambda (mb email)
(members-base-update mb (members-base-update mb
(lambda (mr) (lambda (mr)
(equal? (member-record-info 'mail) (equal? (member-record-info mr 'mail #f)
email)) email))
(lambda (mr) (lambda (mr)
(member-add-mailman mr listname)))) (member-add-mailman mr listname))))