Allow bi-directional communication with mailman.
This commit is contained in:
parent
6247ffbca5
commit
5d7e4a0117
2 changed files with 9 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue