From 262c67a3b949e2e380117a601296984157a0b549 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 6 Apr 2023 19:47:24 +0200
Subject: [PATCH] Fix retrieving member's email.

---
 src/members-base.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/members-base.scm b/src/members-base.scm
index 2c717f7..419cd66 100644
--- a/src/members-base.scm
+++ b/src/members-base.scm
@@ -250,7 +250,7 @@
      (foldl (lambda (mb email)
 	      (members-base-update mb
 				   (lambda (mr)
-				     (equal? (member-record-info 'mail)
+				     (equal? (member-record-info mr 'mail #f)
 					     email))
 				   (lambda (mr)
 				     (member-add-mailman mr listname))))