From 419dece4e2c36a40373abaeb13c923b0dc06b96f Mon Sep 17 00:00:00 2001
From: Luxferre <lux@ferre>
Date: Sun, 27 Oct 2024 09:48:54 +0200
Subject: [PATCH] added ID hash mismatch display to tiix

---
 tiix.tcl | 4 ++++
 1 file changed, 4 insertions(+)

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)]