From 80b945bce9877929b41b8a6815fcc8461f547c82 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Thu, 29 Mar 2012 13:16:43 -0400
Subject: [PATCH] Message base Semafile for newsgroup/netmail was switched

---
 mystic/bbs_common.pas  |  4 ++++
 mystic/bbs_msgbase.pas | 16 ++++++++--------
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/mystic/bbs_common.pas b/mystic/bbs_common.pas
index dd33260..06c33cd 100644
--- a/mystic/bbs_common.pas
+++ b/mystic/bbs_common.pas
@@ -23,6 +23,10 @@ Uses
 // replace with MDL/FP RTL functions
 
 Const
+  fn_SemFileEcho = 'echomail.now';
+  fn_SemFileNews = 'newsmail.now';
+  fn_SemFileNet  = 'netmail.now';
+
   WinConsoleTitle = 'Mystic Node ';
   CopyID          = 'Copyright (C) ' + mysCopyYear + ' By James Coyle.  All Rights Reserved.';
   DateTypeStr : Array[1..4] of String[8] = ('MM/DD/YY', 'DD/MM/YY', 'YY/DD/MM', 'Ask     ');
diff --git a/mystic/bbs_msgbase.pas b/mystic/bbs_msgbase.pas
index 8bae139..5c5760a 100644
--- a/mystic/bbs_msgbase.pas
+++ b/mystic/bbs_msgbase.pas
@@ -265,16 +265,16 @@ Begin
 
     Case MBase.NetType of
       1 : Begin
-            Assign (SemFile, Config.SemaPath + 'echomail.now');
+            Assign (SemFile, Config.SemaPath + fn_SemFileEcho);
             If Session.ExitLevel > 5 Then Session.ExitLevel := 7 Else Session.ExitLevel := 5;
           End;
       2 : Begin
-            Assign (SemFile, Config.SemaPath + 'netmail.now');
-            If Session.ExitLevel = 5 Then Session.ExitLevel := 7 Else Session.ExitLevel := 6;
+            Assign (SemFile, Config.SemaPath + fn_SemFileNews);
+            If Session.ExitLevel > 5 Then Session.ExitLevel := 7 Else Session.ExitLevel := 5;
           End;
       3 : Begin
-            Assign (SemFile, Config.SemaPath + 'newsmail.now');
-            If Session.ExitLevel > 5 Then Session.ExitLevel := 7 Else Session.ExitLevel := 5;
+            Assign (SemFile, Config.SemaPath + fn_SemFileNet);
+            If Session.ExitLevel = 5 Then Session.ExitLevel := 7 Else Session.ExitLevel := 6;
           End;
     End;
 
@@ -3559,9 +3559,9 @@ Begin
     Msg^.SetOrig(Config.NetAddress[mArea.NetAddr]);
 
     Case mArea.NetType of
-      1 : Assign (SemFile, Config.SemaPath + 'echomail.now');
-      2 : Assign (SemFile, Config.SemaPath + 'netmail.now');
-      3 : Assign (SemFile, Config.SemaPath + 'newsmail.now');
+      1 : Assign (SemFile, Config.SemaPath + fn_SemFileEcho);
+      2 : Assign (SemFile, Config.SemaPath + fn_SemFileNews);
+      3 : Assign (SemFile, Config.SemaPath + fn_SemFileNet);
     End;
 
     ReWrite (SemFile);