From e912f1a54f7543e4a802f36b8127fec1299a8891 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 8 Mar 2013 09:02:03 -0500
Subject: [PATCH] Email in QWK

---
 mystic/bbs_msgbase.pas | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/mystic/bbs_msgbase.pas b/mystic/bbs_msgbase.pas
index 8942a1a..6abab6c 100644
--- a/mystic/bbs_msgbase.pas
+++ b/mystic/bbs_msgbase.pas
@@ -211,11 +211,11 @@ Begin
     Session.io.PausePtr   := 1;
     Session.io.AllowPause := True;
 
-    NodeList.ResetSearch(Config.DataPath + 'nodelist.txt', Result);
+    NodeList.ResetSearch (Config.DataPath + 'nodelist.txt', Result);
 
     While NodeList.FindNext(NodeData) Do Begin
       Case ListType of
-        0 : If NodeData.Keyword <> '' Then Continue;
+        0 : ;//If NodeData.Keyword <> '' Then Continue;
         1 : If NodeData.Keyword <> 'ZONE' Then Continue;
         2 : If (NodeData.Keyword <> 'ZONE') and (NodeData.Keyword <> 'REGION') and (NodeData.Keyword <> 'HOST') Then Continue;
       End;
@@ -3755,7 +3755,6 @@ Begin
   Write (tFile, TotalConf - 1, CRLF); {TOTAL CONF - 1}
 
   Reset (MBaseFile);
-  Read  (MBaseFile, MBase); {SKIP EMAIL BASE}
 
   While Not Eof(MBaseFile) Do Begin
     Read (MBaseFile, MBase);
@@ -3832,8 +3831,6 @@ Var
   End;
 
 Begin
-//  Inc (TotalConf);
-
   MsgAdded := 0;
 
   If Not OpenCreateBase(MsgBase, MBase) Then Exit;
@@ -3993,14 +3990,12 @@ Begin
 
   Assign  (QwkLRFile, Session.TempPath + 'qlr.dat');
   ReWrite (QwkLRFile);
-
-  Reset  (MBaseFile);
-  Read   (MBaseFile, MBase); {Skip Email base}
+  Reset   (MBaseFile);
 
   Session.io.OutFullLn (Session.GetPrompt(230));
 
-  TotalMsgs   := 0;
-  TotalConf   := 0;
+  TotalMsgs := 0;
+  TotalConf := 0;
 
   Session.User.IgnoreGroup := Pos('/ALLGROUP', strUpper(Data)) > 0;
 
@@ -4031,6 +4026,7 @@ Begin
   If TotalMsgs > 0 Then Begin
     Session.io.PromptInfo[1] := strI2S(TotalMsgs);
     Session.io.PromptInfo[2] := strI2S(TotalConf);
+
     Session.io.OutFullLn (Session.GetPrompt(233));
 
     Temp := Config.qwkBBSID + '.qwk';