luxferre/tii
1
0
Fork 0
Code Actions Activity

msglist fetch fixes

Browse Source
This commit is contained in:
Luxferre
2024-10-23 15:33:58 +03:00
parent 7a5c03510b
commit 8995621f4a
2 changed files with 4 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tiifetch.tcl
+3 -5
View File
@@ -232,11 +232,9 @@ proc fetchiidb {url echos dbdir dolog} {
set oldmsgids [lmap s [split [readfile $echofile] "\n"] {string trim $s}]
}
# pre-filter the new message IDs to fetch
set newmsgids [lmap m [concat $oldmsgids $msgids] {
if {$m in $oldmsgids && $m in $msgids} continue
if {$m eq {}} continue
set m
}]
set newmsgids [concat $oldmsgids $msgids]
foreach e $newmsgids {dict set tmp $e 1}
set newmsgids [dict keys $tmp]
# save the echo index file with all message IDs
writefileln $echofile [join $msgids "\n"]
if {$dolog eq 1} {puts "Fetching [llength $newmsgids] new messages from $echoname..."}