From fdf18fe49f3dc405575968593e38edcccd0ede5a Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 24 Aug 2012 14:38:36 -0400
Subject: [PATCH] Mass email lockup

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

diff --git a/mystic/bbs_msgbase.pas b/mystic/bbs_msgbase.pas
index 5a8d68d..a3b5d5b 100644
--- a/mystic/bbs_msgbase.pas
+++ b/mystic/bbs_msgbase.pas
@@ -2918,6 +2918,7 @@ Begin
   Case Mode of
     '1' : Begin
             Session.io.OutFull (Session.GetPrompt(388));
+
             ACS := Session.io.GetInput(20, 20, 11, '');
 
             If ACS = '' Then Exit;
@@ -2929,9 +2930,9 @@ Begin
             Reset (Session.User.UserFile);
 
             While Not Eof(Session.User.UserFile) Do Begin
-              If (Session.User.ThisUser.Flags AND UserDeleted = 0) and Session.User.Access(ACS) Then Begin
-                Read (Session.User.UserFile, Session.User.ThisUser);
+              Read (Session.User.UserFile, Session.User.ThisUser);
 
+              If (Session.User.ThisUser.Flags AND UserDeleted = 0) and Session.User.Access(ACS) Then Begin
                 Session.io.PromptInfo[1] := Session.User.ThisUser.Handle;
 
                 Session.io.OutFullLn (Session.GetPrompt(392));