From cb648b260d6e3c2d643667271b524db8beee63c6 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 20:26:51 +0200
Subject: [PATCH] Start immediately.

---
 src/mailman.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/mailman.scm b/src/mailman.scm
index 7187c55..3803822 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -91,6 +91,7 @@
  (define (load-mailman-lists)
    (with-progress%
     #t "Mailman"
+    (progress%-advance 0)
     (let* ((lists (list-mailman-lists))
 	   (total (length lists)))
       (let loop ((lsts lists)
@@ -99,7 +100,9 @@
 	(if (null? lsts)
 	    (let ()
 	      (progress%-advance 1)
-	      (reverse res))
+	      ;; Will be prepended, therefore reversing result is a
+	      ;; bad idea!
+	      res)
 	    (let ((mln (car lsts)))
 	      (progress%-advance (/ idx total))
 	      (loop (cdr lsts)