From e1c55483f9fd1642426f867936d6d471e988011c Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sat, 4 Aug 2012 19:18:31 -0400
Subject: [PATCH] Bugfixes

---
 mystic/bbs_io.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/mystic/bbs_io.pas b/mystic/bbs_io.pas
index c2d463b..dde998a 100644
--- a/mystic/bbs_io.pas
+++ b/mystic/bbs_io.pas
@@ -977,7 +977,9 @@ Begin
         If Not CheckFileInPath(Config.TextPath) Then Exit;
       End Else
         Exit;
+  End;
 
+  If Pos('.', FName) = 0 Then
     If FileExist(FName + Copy(Ext, 1, 3) + '1') Then Begin
       Repeat
         BufPos := Random(9);
@@ -991,7 +993,6 @@ Begin
 
       Ext := Copy(Ext, 1, 3) + Code;
     End;
-  End;
 
   Assign (dFile, FName + Ext);
 
@@ -1337,6 +1338,9 @@ Begin
   BufFlush;
 
   Repeat
+    If InMacro Then
+      If DoInputEvents(Result) Then Exit;
+
     If LastSecond <> TimerSeconds Then Begin
       LastSecond := TimerSeconds;