From 4e0d8108e62eb460a1a60d413d85800cebb540ca Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 15 Sep 2023 18:05:17 +0200
Subject: [PATCH] Bump to dev version.

---
 src/mailman3.scm | 13 +++++++++++--
 src/texts.scm    |  2 +-
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/src/mailman3.scm b/src/mailman3.scm
index 357a7b8..23986ee 100644
--- a/src/mailman3.scm
+++ b/src/mailman3.scm
@@ -33,11 +33,13 @@
   )
 
  (import scheme
+	 (chicken base)
 	 (chicken string)
 	 (chicken sort)
 	 (chicken format)
 	 configuration
-	 util-io)
+	 util-io
+	 util-list)
 
  ;; Runs the mailman3 binary with any arguments and returns the lines
  ;; produced on stdout
@@ -52,7 +54,14 @@
 
  ;; Returns the list of available lists
  (define (list-mailman3-lists)
-   (get-mailman3-output-lines "lists" "-q"))
+   (filter
+    identity
+    (map (lambda (line)
+	   (let ((sline (string-split line "@")))
+	     (if (null? sline)
+		 #f
+		 (car sline))))
+	 (get-mailman3-output-lines "lists" "-q"))))
 
  ;; Returns the list of members of given list
  (define (list-mailman3-list-members lst)
diff --git a/src/texts.scm b/src/texts.scm
index 58ff995..623955b 100644
--- a/src/texts.scm
+++ b/src/texts.scm
@@ -39,7 +39,7 @@
 	 (chicken format))
 
  ;; Short banner
- (define banner-line "HackerBase 1.8 (c) 2023 Brmlab, z.s.")
+ (define banner-line "HackerBase 1.9-dev (c) 2023 Brmlab, z.s.")
 
  ;; Banner source with numbers for ANSI CSI SGR
  (define banner-source "