From ae2ad7390d64424a958f7b368ffe53ed970f26b2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 6 Apr 2023 19:57:18 +0200
Subject: [PATCH] Load all lists if requested.

---
 src/bbstool.scm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/src/bbstool.scm b/src/bbstool.scm
index ceb7328..f62ec7d 100644
--- a/src/bbstool.scm
+++ b/src/bbstool.scm
@@ -166,11 +166,16 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
 ;; Load ML(s) and merge them
 (define MB
-  (cond ((-ml-all-)
-	 (define internal-ml (load-mailman-list "internal"))
-	 (members-base-merge-mailman MB0 internal-ml))
-	(else
-	 MB0)))
+  (if (-ml-all-)
+      (let ()
+	(define internal-ml (load-mailman-list "internal"))
+	(members-base-merge-mailman MB0 internal-ml))
+      (let ()
+	(define mls (load-mailman-lists))
+	(foldl (lambda (mb ml)
+		 (members-base-merge-mailman mb ml))
+	       MB0
+	       mls))))
 
 ;; If a member is specified by either id or nick, get its record
 (define mr