From c026d357531e952367e19631d7859e86ccca45a7 Mon Sep 17 00:00:00 2001
From: Luxferre <lux@ferre>
Date: Mon, 21 Oct 2024 17:53:50 +0300
Subject: [PATCH] Hardcode maxids to 12

---
 tiifetch.tcl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tiifetch.tcl b/tiifetch.tcl
index 023b884..613ce82 100755
--- a/tiifetch.tcl
+++ b/tiifetch.tcl
@@ -217,10 +217,10 @@ proc fetchiidb {url echos dbdir dolog} {
     }
   }
   if {$dolog eq 1} {puts "Echomap built"}
-  # detect how many message IDs we can pass in a single query
+  # set how many message IDs we can pass in a single query
   # (assuming the maximum GET length is 256 chars)
-  # then we assume 21 character per message ID
-  set maxids [expr {int(256 / 21)}]
+  # and we assume 21 character per message ID
+  set maxids 12
   # pass the echo list and fetch the message IDs
   # now, process the map we've built
   dict for {echoname msgids} $echomap {
@@ -238,7 +238,7 @@ proc fetchiidb {url echos dbdir dolog} {
     }]
     # 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, $maxids messages per request..."}
+    if {$dolog eq 1} {puts "Fetching [llength $newmsgids] new messages from $echoname..."}
     set idgroups ""
     set grcount 0
     set localcount 0