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))))
  
  )