From 73220682bd2b0d7b8e10d683763d1985c896dcf7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sun, 17 Sep 2023 16:08:44 +0200 Subject: [PATCH] Select only member role member. --- src/mailman3-sql.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/mailman3-sql.scm b/src/mailman3-sql.scm index 6731d1b..3829db0 100644 --- a/src/mailman3-sql.scm +++ b/src/mailman3-sql.scm @@ -60,12 +60,13 @@ (define (list-mailman3-sql-list-members lst) (let-values (((stmt _) (prepare (mailman3-db) - "SELECT address.email + "SELECT DISTINCT address.email FROM member LEFT JOIN address ON member.address_id=address.id - WHERE list_id=?"))) - (map-row identity stmt + WHERE list_id=? AND role=1"))) + (map-row identity + stmt (format "~A.brmlab.cz" lst)))) )