one more fetch algo fix

This commit is contained in:
Luxferre
2024-10-23 18:06:51 +03:00
parent c474a15e4e
commit 526d96574c
2 changed files with 3 additions and 2 deletions
+1 -1
View File
@@ -1,4 +1,4 @@
useragent "curl/7.54.2"
useragent "tii/current"
proxyhost ""
proxyport "0"
tiix_font "Fira Code"
+2 -1
View File
@@ -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