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

View File

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