Prepare for syncing other mailinglists.

src/mbase.scm

@@ -262,6 +262,7 @@
  ;; alphabetically
  (define* (mbase-active-emails mb
 			       #:active (active #t)
+			       #:pred? (pred? #f)
 			       #:suspended (suspended #f))
    (sort
     (filter
@@ -272,10 +273,12 @@
       (bdict-filter-values
        (mbase-members mb)
        (lambda (id mr)
-	 (or (and active
-		  (brmember-active? mr))
-	     (and suspended
-		  (brmember-suspended? mr)))))))
+	 (and (or (not pred?)
+		  (pred? mr))
+	      (or (and active
+		       (brmember-active? mr))
+		  (and suspended
+		       (brmember-suspended? mr))))))))
     string-ci<?))
 
  ;; Merges given ML members into members base