From 07d282f40da0ed6cd513a13398520e2e10ca8783 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 1 Apr 2013 16:22:22 -0400
Subject: [PATCH] Code cleanup

---
 mystic/bbs_core.pas      |  2 +-
 mystic/bbs_edit_ansi.pas | 31 ++++++++++++++++---------------
 mystic/bbs_general.pas   |  5 ++---
 3 files changed, 19 insertions(+), 19 deletions(-)

diff --git a/mystic/bbs_core.pas b/mystic/bbs_core.pas
index 8d2c3f4..6b377c6 100644
--- a/mystic/bbs_core.pas
+++ b/mystic/bbs_core.pas
@@ -161,7 +161,7 @@ Begin
 
   Close (PromptFile);
 
-  {$IFDEF WINDOWS}
+  {$IFNDEF UNIX}
     Client.Free;
   {$ENDIF}
 
diff --git a/mystic/bbs_edit_ansi.pas b/mystic/bbs_edit_ansi.pas
index 5c1eec1..1a07e21 100644
--- a/mystic/bbs_edit_ansi.pas
+++ b/mystic/bbs_edit_ansi.pas
@@ -39,12 +39,10 @@ Type
     CutText      : Array[1..fseMaxCutText] of RecAnsiBufferLine;
     CutTextPos   : Word;
     CutPasted    : Boolean;
-
-    // old shit from copy over of quote/command functions
-    save   : boolean;
-    forced : boolean;
-    done   : boolean;
-    subj   : string;
+    Save         : Boolean;
+    Forced       : Boolean;
+    Done         : Boolean;
+    Subject      : String;
 
     Constructor Create (Var O: Pointer);
     Destructor  Destroy; Override;
@@ -78,11 +76,10 @@ Type
     Procedure   DoDelete;
     Procedure   DoChar (Ch: Char);
     Function    Edit : Boolean;
-
-    procedure quote;
-    procedure quotewindow;
-    procedure commands;
-    procedure messageupload;
+    Procedure   Quote;
+    Procedure   QuoteWindow;
+    Procedure   Commands;
+    Procedure   MessageUpload;
   End;
 
 Implementation
@@ -390,7 +387,7 @@ Var
 Begin
   TBBSCore(Owner).io.AllowArrow := True;
 
-  Session.io.PromptInfo[2] := Subj;
+  Session.io.PromptInfo[2] := Subject;
 
   Session.io.OutFile ('ansiedit', True, 0);
 
@@ -1159,9 +1156,9 @@ Begin
             End;
       'T' : Begin
               Session.io.OutFull(Session.GetPrompt(463));
-              Str := Session.io.GetInput(60, 60, 11, Subj);
-              If Str <> '' Then Subj := Str;
-              Session.io.PromptInfo[2] := Subj;
+              Str := Session.io.GetInput(60, 60, 11, Subject);
+              If Str <> '' Then Subject := Str;
+              Session.io.PromptInfo[2] := Subject;
               Exit;
             End;
       'U' : Begin
@@ -1209,6 +1206,10 @@ Begin
     Assign (F, FN);
     Reset  (F, 1);
 
+    ANSI.Lines := CurLine;
+    Ansi.CurX  := CurX;
+    Ansi.CurY  := CurLine;
+
     While Not Eof(F) Do Begin
       BlockRead (F, B, SizeOf(B), BR);
 
diff --git a/mystic/bbs_general.pas b/mystic/bbs_general.pas
index f6acbc4..1168cbe 100644
--- a/mystic/bbs_general.pas
+++ b/mystic/bbs_general.pas
@@ -63,11 +63,10 @@ Begin
   For Count := 1 to Lines Do
     Editor.SetLineText (Count, Session.Msgs.MsgText[Count]);
 
-  Editor.Subj := Subj;
+  Editor.Subject := Subj;
 
   Result := Editor.Edit;
-
-  Subj := Editor.Subj;
+  Subj   := Editor.Subject;
 
   If Result Then Begin
     For Count := 1 to Editor.LastLine Do