diff --git a/src/members-base.scm b/src/members-base.scm
index 419cd66..0bcbd1f 100644
--- a/src/members-base.scm
+++ b/src/members-base.scm
@@ -240,7 +240,8 @@
      (map
       (lambda (mr)
 	(member-record-info mr 'mail))
-      (members-base-members mb)))
+      (filter member-active?
+	      (members-base-members mb))))
     string-ci<?))
 
  ;; Merges given ML members into members base