From 9e7f0ae4ede3a62fb870901949fd563b9542d76b Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 13 Aug 2012 22:00:19 -0400
Subject: [PATCH] Now escapes outbound Telnet IAC

---
 mystic/mis_client_telnet.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/mystic/mis_client_telnet.pas b/mystic/mis_client_telnet.pas
index b90eeb6..c58d006 100644
--- a/mystic/mis_client_telnet.pas
+++ b/mystic/mis_client_telnet.pas
@@ -109,7 +109,8 @@ Var
   Num    : LongInt;
   NI     : TNodeInfoRec;
   Proc   : TProcess;
-  Buffer : Array[1..BufferSize] of Char;
+//  Buffer : Array[1..BufferSize] of Char;
+  Buffer : TIOBuffer;
   bRead  : LongInt;
   bWrite : LongInt;
 Begin
@@ -137,7 +138,7 @@ Begin
     If Proc.Output.NumBytesAvailable > 0 Then Begin
       While Proc.Output.NumBytesAvailable > 0 Do Begin
         bRead := Proc.Output.Read(Buffer, BufferSize);
-        Client.WriteBuf (Buffer, bRead);
+        Client.WriteBufEscaped (Buffer, bRead);
 
         If Snooping Then
           Term.ProcessBuf(Buffer[1], bRead);