List all active emails.

src/members-base.scm

@@ -43,12 +43,14 @@
   members-base-update
   members-base-add-unpaired
   members-base-unpaired
+  members-base-active-emails
   )
 
  (import scheme
 	 (chicken base)
 	 (chicken string)
 	 (chicken random)
+	 (chicken sort)
 	 testing
 	 utils
 	 dictionary
@@ -228,4 +230,16 @@
  (define (members-base-unpaired mb)
    (dict-ref mb 'unpaired '()))
 
+ ;; Returns the list of emails of all active members sorted
+ ;; alphabetically
+ (define (members-base-active-emails mb)
+   (sort
+    (filter
+     string?
+     (map
+      (lambda (mr)
+	(member-record-info mr 'mail))
+      (members-base-members mb)))
+    string-ci<?))
+
  )