From 2c285004f86cd8b62ce948b66e881ee49efba3b6 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 15 Feb 2013 23:18:46 -0500
Subject: [PATCH] Msg text filters out FIDO kludge lines

---
 mystic/mis_client_nntp.pas | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

diff --git a/mystic/mis_client_nntp.pas b/mystic/mis_client_nntp.pas
index 1582111..704c1a3 100644
--- a/mystic/mis_client_nntp.pas
+++ b/mystic/mis_client_nntp.pas
@@ -452,6 +452,7 @@ Var
   ArticleNum : LongInt = 0;
   Found      : Boolean = False;
   MsgBase    : PMsgBaseABS;
+  Str        : String;
 Begin
   If Not LoggedIn Then Begin
     ClientWriteLine(re_AuthReq);
@@ -500,7 +501,8 @@ Begin
 
   MsgBase^.MsgTxtStartUp;
 
-  Client.WriteLine('220 0 ' + strI2S(ArticleNum));
+  ClientWriteLine ('220 ' + strI2S(ArticleNum) + ' <0> article retrieved - head and body follow');
+//  ClientWriteLine('220 0 ' + strI2S(ArticleNum));
 
   Client.WriteLine('From: ' + MsgBase^.GetFrom);
   Client.WriteLine('Newsgroups: ' + MBase.NewsName);
@@ -508,8 +510,13 @@ Begin
   Client.WriteLine('Date: ' + MsgBase^.GetDate);
   Client.WriteLine('');
 
-  While Not MsgBase^.EOM Do
-    Client.WriteLine(MsgBase^.GetString(79));
+  While Not MsgBase^.EOM Do Begin
+    Str := MsgBase^.GetString(79);
+
+    If Str[1] = ^A Then Continue;
+
+    Client.WriteLine(Str);
+  End;
 
   Client.WriteLine ('.');
 
@@ -523,6 +530,7 @@ Var
   Found   : Boolean = False;
   MsgBase : PMsgBaseABS;
   MsgText : TStringList;
+  Str     : String;
 Begin
   If Not LoggedIn Then Begin
     ClientWriteLine(re_AuthReq);
@@ -575,8 +583,13 @@ Begin
 
     MsgText.Clear;
 
-    While Not MsgBase^.EOM Do
-      MsgText.Add(MsgBase^.GetString(79));
+    While Not MsgBase^.EOM Do Begin
+      Str := MsgBase^.GetString(79);
+
+      If Str[1] = ^A Then Continue;
+
+      MsgText.Add(Str);
+    End;
 
     Client.WriteStr(strI2S(MsgBase^.GetMsgNum) + #9);
     Client.WriteStr(MsgBase^.GetSubj + #9);