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

Fix /ADDR option on MP menu command

This commit is contained in:
mysticbbs 2013-01-24 10:26:35 -05:00
parent 89cc968daf
commit 22a06aac39
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/bbs_msgbase.pas
View File

@ -2517,8 +2517,11 @@ Begin
If Pos ('/SUBJ:', strUpper(TempStr)) > 0 Then If Pos ('/SUBJ:', strUpper(TempStr)) > 0 Then
MsgSubj := strReplace(Copy(TempStr, Pos('/SUBJ:', strUpper(TempStr)) + 6, Length(TempStr)), '_', ' ') MsgSubj := strReplace(Copy(TempStr, Pos('/SUBJ:', strUpper(TempStr)) + 6, Length(TempStr)), '_', ' ')
Else Else
If Pos('/ADDR:', strUpper(TempStr)) > 0 Then If Pos('/ADDR:', strUpper(TempStr)) > 0 Then Begin
MsgAddr := strReplace(Copy(TempStr, Pos('/ADDR:', strUpper(TempStr)) + 6, Length(TempStr)), '_', ' '); MsgAddr := strReplace(Copy(TempStr, Pos('/ADDR:', strUpper(TempStr)) + 6, Length(TempStr)), '_', ' ');
If Not strStr2Addr(MsgAddr, DestAddr) Then MsgAddr := '';
End;
End; End;
If MBase.NetType = 2 Then { UseNet Base: To = "All" } If MBase.NetType = 2 Then { UseNet Base: To = "All" }