diff --git a/src/mailman.scm b/src/mailman.scm index 178d2f6..4ff85c0 100644 --- a/src/mailman.scm +++ b/src/mailman.scm @@ -71,7 +71,8 @@ (define-mailman-proc list-mailman-lists list-mailman2-lists list-mailman3-lists) - (define-mailman-proc list-mailman-list-members list-mailman2-list-members) + (define-mailman-proc list-mailman-list-members + list-mailman2-list-members list-mailman3-list-members) (define-mailman-proc load-mailman-list load-mailman2-list) (define-mailman-proc load-mailman-lists load-mailman2-lists) diff --git a/src/mailman3.scm b/src/mailman3.scm index 1442c08..9ad34b5 100644 --- a/src/mailman3.scm +++ b/src/mailman3.scm @@ -29,10 +29,12 @@ mailman3 ( list-mailman3-lists + list-mailman3-list-members ) (import scheme (chicken string) + (chicken sort) configuration util-io) @@ -51,4 +53,10 @@ (define (list-mailman3-lists) (get-mailman3-output-lines "lists -q")) + ;; Returns the list of members of given list + (define (list-mailman3-list-members lst) + (sort + (get-mailman3-output-lines "members" lst "-e") + string-ci