Implement kwarg active emails query.

src/mbase.scm

@@ -78,7 +78,8 @@
 	 configuration
 	 progress
 	 mbase-dir
-	 util-tag)
+	 util-tag
+	 util-kwargs)
 
  ;; Constant unique tag
  (define TAG-MBASE (make-tag mbase))
@@ -258,14 +259,20 @@
 
  ;; Returns the list of emails of all active members sorted
  ;; alphabetically
- (define (mbase-active-emails mb)
+ (define-kwproc (mbase-active-emails mb
+				     (#:active active #t)
+				     (#:suspended suspended #f))
    (sort
     (filter
      string?
      (map
       (lambda (mr)
 	(brmember-info mr 'mail))
-      (filter brmember-active?
+      (filter (lambda (mr)
+		(or (and active
+			 (brmember-active? mr))
+		    (and suspended
+			 (brmember-suspended? mr))))
 	      (mbase-members mb))))
     string-ci<?))