[inputlength] Match irc/core/irc-servers.c:split_message logic

diff --git a/scripts/il.pl b/scripts/il.pl
index cd5ff3c0fb330b70e79ea62b5d0a3f8359154e65..b5c871357c0486974901d9ed9dcda3761f000bc1 100644 (file)
--- a/scripts/il.pl
+++ b/scripts/il.pl
@@ -67,9 +67,12 @@ sub get_inputlength_max {
        my $max_msg_bytes = 512;
 
        my $nick = $server->{nick};
-       my $userhost = $server->{userhost} // '';
-       my $prefix = $nick;
-       $prefix .= '!' . $userhost if length $userhost;
+
+       # see irssi/src/irc/core/irc-servers.h
+       my $max_userhost_bytes = 63 + 10 + 1;
+       $max_msg_bytes = $max_msg_bytes - $max_userhost_bytes;
+
+       my $prefix = $nick . '!';
 
        # message target, e.g., "#channel" or "nickname", if available
        my $item = $window->{active};