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}] set oldmsgids [lmap s [split [readfile $echofile] "\n"] {string trim $s}]
} }
# pre-filter the new message IDs to fetch # pre-filter the new message IDs to fetch
set newmsgids [lmap m [concat $oldmsgids $msgids] { set newmsgids [concat $oldmsgids $msgids]
if {$m in $oldmsgids && $m in $msgids} continue foreach e $newmsgids {dict set tmp $e 1}
if {$m eq {}} continue set newmsgids [dict keys $tmp]
set m
}]
# save the echo index file with all message IDs # save the echo index file with all message IDs
writefileln $echofile [join $msgids "\n"] writefileln $echofile [join $msgids "\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..."}
tiix.tcl
+1 -4
View File
@@ -356,12 +356,9 @@ grid .tabbar.p.addrframe.subj -column 3 -row 1 -columnspan 3 -sticky we
grid .tabbar.p.addrframe.reptolbl -column 4 -row 0 -sticky nsw grid .tabbar.p.addrframe.reptolbl -column 4 -row 0 -sticky nsw
grid .tabbar.p.addrframe.repto -column 5 -row 0 grid .tabbar.p.addrframe.repto -column 5 -row 0
grid .tabbar.p.addrframe.send -column 6 -rowspan 2 -row 0 -sticky nswe grid .tabbar.p.addrframe.send -column 6 -rowspan 2 -row 0 -sticky nswe
grid rowconfigure .tabbar.p.addrframe 0 -pad 2 grid rowconfigure .tabbar.p.addrframe 0 -pad 2
grid columnconfigure .tabbar.p.addrframe 6 -weight 1 grid columnconfigure .tabbar.p.addrframe 6 -weight 1
grid .tabbar.p.addrframe -column 0 -row 0 -sticky nws -pady 2 grid .tabbar.p.addrframe -column 0 -row 0 -sticky nws -pady 2
ttk::frame .tabbar.p.content ttk::frame .tabbar.p.content
tk::text .tabbar.p.content.text -cursor $contentcursor -yscrollcommand ".tabbar.p.content.yscroll set" -wrap word \ tk::text .tabbar.p.content.text -cursor $contentcursor -yscrollcommand ".tabbar.p.content.yscroll set" -wrap word \
-font tiix_font -foreground $tiix_fgcolor -background $tiix_bgcolor -insertbackground $tiix_fgcolor -state normal -font tiix_font -foreground $tiix_fgcolor -background $tiix_bgcolor -insertbackground $tiix_fgcolor -state normal
@@ -380,7 +377,7 @@ grid rowconfigure .tabbar.p 1 -weight 1
# general keybinding switch # general keybinding switch
bind . <Key> { bind .tabbar.r.content.text <Key> {
if {$tiix_entry eq 0} { if {$tiix_entry eq 0} {
switch "%K" { switch "%K" {
Prior - Prior -