From b1b2d9fc213b87538a7dcd9c72579065a7293871 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Tue, 21 Aug 2012 12:22:02 -0400
Subject: [PATCH] Fix for private message To prompt

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

diff --git a/mystic/bbs_msgbase.pas b/mystic/bbs_msgbase.pas
index f11e451..5a8d68d 100644
--- a/mystic/bbs_msgbase.pas
+++ b/mystic/bbs_msgbase.pas
@@ -887,12 +887,12 @@ Begin
 
   Set_Node_Action (Session.GetPrompt(349));
 
-  If ListMode = 0 Then
-    Session.io.OutFull (Session.GetPrompt(407))
-  Else
-    Session.io.OutFull (Session.GetPrompt(408));
-
   Repeat
+    If ListMode = 0 Then
+      Session.io.OutFull (Session.GetPrompt(407))
+    Else
+      Session.io.OutFull (Session.GetPrompt(408));
+
     ToWho := Session.io.GetInput(30, 30, 18, MsgBase^.GetFrom);
 
     If ToWho = '' Then Exit;
@@ -3987,4 +3987,4 @@ Begin
   DirClean (Session.TempPath, '');
 End;
 
-End.
\ No newline at end of file
+End.