New POP3 options in Config records

mystic/109to110.pas

@@ -524,10 +524,13 @@ Begin
     Config.FCommentLines  := 10;
     Config.FCommentLen    := 79;
 
-    Config.inetTNMax      := MaxNode;
+    Config.inetTNNodes    := MaxNode;
 
     Config.inetSMTPDupes  := 1;
+
     Config.inetPOP3Dupes   := 1;
+    Config.inetPOP3Delete  := False;
+    Config.inetPOP3Timeout := 900;
 
     Config.inetNNTPUse    := False;
     Config.inetNNTPPort   := 119;
@@ -690,7 +693,7 @@ Begin
       Sec.AF1 := AF1;
       Sec.AF2 := AF2;
       Sec.Hard := Hard;
-      Sec.StartMNU := StartMNU;
+      Sec.StartMenu := StartMNU;
       Sec.PCRatio := PCRatio;
     End;
 
@@ -958,12 +961,12 @@ Begin
   WarningDisplay;
 
 // comment this out ONLY IF config needs converting
-  Assign (ConfigFile, 'mystic.dat');
+//  Assign (ConfigFile, 'mystic.dat');
-  Reset  (ConfigFile);
+//  Reset  (ConfigFile);
-  Read   (ConfigFile, Config);
+//  Read   (ConfigFile, Config);
-  Close  (ConfigFile);
+//  Close  (ConfigFile);
 
-//  ConvertConfig;  //1.10a11
+  ConvertConfig;  //1.10a11
 //  ConvertUsers; //1.10a11
 //ConvertSecurity; //1.10a11
 

mystic/mbbsutil.pas

@@ -940,7 +940,7 @@ Begin
     Inc (A);
   End;
 
-  For A := 1 to Config.INetTNMax Do Begin
+  For A := 1 to Config.INetTNNodes Do Begin
     Assign (ChatFile, Config.DataPath + 'chat' + strI2S(A) + '.dat');
     {$I-} Reset (ChatFile); {$I+}
     If IoResult = 0 Then Begin

mystic/records.pas

@@ -219,6 +219,8 @@ Type
     inetPOP3Port    : Word;
     inetPOP3Max     : Word;
     inetPOP3Dupes   : Byte;
+    inetPOP3Delete  : Boolean;
+    inetPOP3Timeout : Word;
     inetTNUse       : Boolean;
     inetTNPort      : Word;
     inetTNNodes     : Byte;
@@ -236,7 +238,7 @@ Type
     inetNNTPMax     : Word;
     inetNNTPDupes   : Byte;
  // UNSORTED
-    Reserved        : Array[1..491] of Char;
+    Reserved        : Array[1..488] of Char;
   End;
 
 Const