From 5d7e4a0117b17217ac8a48ba63e4ac1625468a4b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 19 May 2023 19:29:59 +0200
Subject: [PATCH] Allow bi-directional communication with mailman.

---
 src/Makefile    | 2 +-
 src/mailman.scm | 8 ++++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/Makefile b/src/Makefile
index f0371b0..6576312 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -214,7 +214,7 @@ UTIL-CSV-SOURCES=util-csv.scm testing.import.scm	\
 util-csv.o: util-csv.import.scm
 util-csv.import.scm: $(UTIL-CSV-SOURCES)
 
-BANK-ACCOUNT-SOURCES=bank-account.scm
+BANK-ACCOUNT-SOURCES=bank-account.scm util-tag.import.scm
 
 bank-account.o: bank-account.import.scm
 bank-account.import.scm: $(BANK-ACCOUNT-SOURCES)
diff --git a/src/mailman.scm b/src/mailman.scm
index d92cc18..6bc6d6d 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -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)