tii

commit 526d96574c9189d9b6b85253ad8ebe6eb05cd9ad
parent c474a15e4e5141511157dfa72b2da0a16647d533
Author: Luxferre <lux@ferre>
Date:   Wed, 23 Oct 2024 18:06:51 +0300

one more fetch algo fix

Diffstat:
M
config.txt
 | 
2
+-
M
tiifetch.tcl
 | 
3
++-

2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/config.txt b/config.txt
@@ -1,4 +1,4 @@
-useragent "curl/7.54.2"
+useragent "tii/current"
 proxyhost ""
 proxyport "0"
 tiix_font "Fira Code"
diff --git a/tiifetch.tcl b/tiifetch.tcl
@@ -245,7 +245,8 @@ proc fetchiidb {url echos dbdir dolog} {
     # pre-filter the new message IDs to fetch
     set newmsgids [listcomp $msgids $oldmsgids] 
     # save the echo index file with all message IDs
-    writefileln $echofile [join $msgids "\n"]
+    set msgids [list {*}$oldmsgids {*}$newmsgids]
+    writefileln $echofile [string cat [string trimright [join $msgids "\n"]] "\n"]
     if {$dolog eq 1} {puts "Fetching [llength $newmsgids] new messages from $echoname..."}
     set idgroups ""
     set grcount 0