From 1224a848a041d87e168f308165de72546fc6252d Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sun, 18 Nov 2012 03:48:25 -0500
Subject: [PATCH] Menu command OS and MZ optional data

---
 mystic/bbs_msgbase.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/mystic/bbs_msgbase.pas b/mystic/bbs_msgbase.pas
index faa0c86..e90b8b8 100644
--- a/mystic/bbs_msgbase.pas
+++ b/mystic/bbs_msgbase.pas
@@ -51,7 +51,7 @@ Type
     Procedure   ReplyMessage        (Email: Boolean; ListMode: Byte; ReplyID: String);
     Procedure   EditMessage;
     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   PostMessage         (Email: Boolean; Data: String);
     Procedure   CheckEMail;
@@ -517,7 +517,7 @@ Begin
   End;
 End;
 
-Procedure TMsgBase.ToggleNewScan (QWK: Boolean);
+Procedure TMsgBase.ToggleNewScan (QWK: Boolean; Data: String);
 Var
   Total: LongInt;
 
@@ -628,11 +628,14 @@ Var
 Begin
   Old := MBase;
 
+  Session.User.IgnoreGroup := Pos('/ALLGROUP', strUpper(Data)) > 0;
+
   List_Bases;
 
   If Total = 0 Then Begin
     Session.io.OutFullLn (Session.GetPrompt(94));
     MBase := Old;
+    Session.User.IgnoreGroup := False;
     Exit;
   End;
 
@@ -662,6 +665,8 @@ Begin
   Close (MBaseFile);
 
   MBase := Old;
+
+  Session.User.IgnoreGroup := False;
 End;
 
 Procedure TMsgBase.MessageGroupChange (Ops : String; FirstBase, Intro : Boolean);