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

Menu command OS and MZ optional data

This commit is contained in:
mysticbbs 2012-11-18 03:48:25 -05:00
parent 569f991768
commit 1224a848a0
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
mystic/bbs_msgbase.pas
View File

@ -51,7 +51,7 @@ Type
Procedure ReplyMessage (Email: Boolean; ListMode: Byte; ReplyID: String); Procedure ReplyMessage (Email: Boolean; ListMode: Byte; ReplyID: String);
Procedure EditMessage; Procedure EditMessage;
Function ReadMessages (Mode : Char; SearchStr: String) : Boolean; Function ReadMessages (Mode : Char; SearchStr: String) : Boolean;
Procedure ToggleNewScan (QWK: Boolean); Procedure ToggleNewScan (QWK: Boolean; Data: String);
Procedure MessageGroupChange (Ops: String; FirstBase, Intro : Boolean); Procedure MessageGroupChange (Ops: String; FirstBase, Intro : Boolean);
Procedure PostMessage (Email: Boolean; Data: String); Procedure PostMessage (Email: Boolean; Data: String);
Procedure CheckEMail; Procedure CheckEMail;
@ -517,7 +517,7 @@ Begin
End; End;
End; End;
Procedure TMsgBase.ToggleNewScan (QWK: Boolean); Procedure TMsgBase.ToggleNewScan (QWK: Boolean; Data: String);
Var Var
Total: LongInt; Total: LongInt;
@ -628,11 +628,14 @@ Var
Begin Begin
Old := MBase; Old := MBase;
Session.User.IgnoreGroup := Pos('/ALLGROUP', strUpper(Data)) > 0;
List_Bases; List_Bases;
If Total = 0 Then Begin If Total = 0 Then Begin
Session.io.OutFullLn (Session.GetPrompt(94)); Session.io.OutFullLn (Session.GetPrompt(94));
MBase := Old; MBase := Old;
Session.User.IgnoreGroup := False;
Exit; Exit;
End; End;
@ -662,6 +665,8 @@ Begin
Close (MBaseFile); Close (MBaseFile);
MBase := Old; MBase := Old;
Session.User.IgnoreGroup := False;
End; End;
Procedure TMsgBase.MessageGroupChange (Ops : String; FirstBase, Intro : Boolean); Procedure TMsgBase.MessageGroupChange (Ops : String; FirstBase, Intro : Boolean);