one more fetch algo fix
This commit is contained in:
+1
-1
@@ -1,4 +1,4 @@
|
||||
useragent "curl/7.54.2"
|
||||
useragent "tii/current"
|
||||
proxyhost ""
|
||||
proxyport "0"
|
||||
tiix_font "Fira Code"
|
||||
|
||||
+2
-1
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user