--- deliantra/server/socket/lowlevel.C	2008/05/06 16:55:26	1.64
+++ deliantra/server/socket/lowlevel.C	2008/09/19 01:39:45	1.66
@@ -476,13 +476,6 @@
   send_packet (sl);
 }
 
-// returns true when the message needs special (read: perl) treatment
-static bool
-msg_is_special (const char *msg)
-{   
-  return msg [strcspn (msg, "<[&\n")];
-}
-
 void
 client::send_msg (int color, const char *type, const char *msg)
 {
@@ -494,7 +487,9 @@
 
   int len = strlen (msg);
 
-  if (msg_is_special (msg) || (type [0] == 'c' && type [1] == '/') || len > (MAXSOCKBUF - 128))
+  if (!(color & NDI_VERBATIM)
+      && (msg_is_special (msg)
+          || (type [0] == 'c' && type [1] == '/') || len > (MAXSOCKBUF - 128)))
     cfperl_send_msg (this, color, type, msg);
   else if (can_msg)
     send_packet_printf ("msg %d %s %s", color & NDI_CLIENT_MASK, type, msg);