brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use syntax for providing versioned mailman procedures.

Browse source
This commit is contained in:
Dominik Pantůček 2023-09-14 21:47:20 +02:00
parent ae048d505a
commit 6edc7ce0de
2 changed files with 23 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/mailman2.scm
View file

@ -31,7 +31,7 @@
*mailman2-bin*
list-mailman2-lists
list-mailman-list-members
list-mailman2-list-members
load-mailman-list
load-mailman-lists
@ -91,7 +91,7 @@
(get-mailman-output-lines "list_lists" "-b"))
;; Returns the list of members of given list
(define (list-mailman-list-members lst)
(define (list-mailman2-list-members lst)
(sort
(get-mailman-output-lines "list_members" lst)
string-ci<?))
@ -110,7 +110,7 @@
;; emails.
(define (load-mailman-list name)
(make-mailman-list name
(list-mailman-list-members name)))
(list-mailman2-list-members name)))
;; Loads all lists and members
(define (load-mailman-lists)