From 754f81703e40b10963b4d2b2e730cd87d8f353e0 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:24:18 +0200
Subject: [PATCH] Finish at 100%

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

diff --git a/src/mailman.scm b/src/mailman.scm
index 8f362b0..ce7d8d5 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -97,7 +97,9 @@
 		 (res '())
 		 (idx 0))
 	(if (null? lsts)
-	    res
+	    (let ()
+	      (progress%-advance 1)
+	      (reverse res))
 	    (let ((mln (car lsts)))
 	      (progress%-advance (/ idx total))
 	      (loop (cdr lsts)