luxferre/tii
1
0
Fork 0
Code Actions Activity

one more fetch algo fix

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
config.txt
+1 -1
View File
@@ -1,4 +1,4 @@
useragent "curl/7.54.2" useragent "tii/current"
proxyhost "" proxyhost ""
proxyport "0" proxyport "0"
tiix_font "Fira Code" tiix_font "Fira Code"
tiifetch.tcl
+2 -1
View File
@@ -245,7 +245,8 @@ proc fetchiidb {url echos dbdir dolog} {
# pre-filter the new message IDs to fetch # pre-filter the new message IDs to fetch
set newmsgids [listcomp $msgids $oldmsgids] set newmsgids [listcomp $msgids $oldmsgids]
# save the echo index file with all message IDs # 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..."} if {$dolog eq 1} {puts "Fetching [llength $newmsgids] new messages from $echoname..."}
set idgroups "" set idgroups ""
set grcount 0 set grcount 0