eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Msg text filters out FIDO kludge lines

This commit is contained in:
mysticbbs 2013-02-15 23:18:46 -05:00
parent 6c7547f92f
commit 2c285004f8
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
mystic/mis_client_nntp.pas
View File

@ -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);