diff --git a/tiix.tcl b/tiix.tcl index 44defd7..e0739fc 100755 --- a/tiix.tcl +++ b/tiix.tcl @@ -164,6 +164,10 @@ proc tiix_viewecho {} { set textw .tabbar.r.content.text $textw insert end "\[$renderedts\] " linkinsert $textw $msg(msgid) 1 + set msg(content_id) [string trim $msg(content_id)] + if {$msg(msgid) ne $msg(content_id)} { + $textw insert end " (ID hash mismatch!)" + } set msg(echoname) [string trim $msg(echoname)] set msg(msgfrom) [string trim $msg(msgfrom)] set msg(msgfromaddr) [string trim $msg(msgfromaddr)]