Allow bi-directional communication with mailman.

This commit is contained in:
Dominik Pantůček 2023-05-19 19:29:59 +02:00
parent 6247ffbca5
commit 5d7e4a0117
2 changed files with 9 additions and 1 deletions

View file

@ -77,6 +77,14 @@
get-process-output-lines
(mailman-bin bin)
args))
;; Sends all lines to the process
(define (mailman-send/recv bin args . lines)
(apply
process-send/recv
(mailman-bin bin)
args
lines))
;; Returns the list of available lists
(define (list-mailman-lists)