From c9a65ae034839ec5f0f13bd282f6c6a54a0a1a31 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Tue, 21 Aug 2012 13:06:35 -0400
Subject: [PATCH] Change default protocol logic

---
 mystic/bbs_user.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/mystic/bbs_user.pas b/mystic/bbs_user.pas
index 47d49f3..92a5324 100644
--- a/mystic/bbs_user.pas
+++ b/mystic/bbs_user.pas
@@ -932,10 +932,11 @@ Begin
     Else
       ThisUser.ScreenSize := Config.DefScreenSize;
 
-    If Config.UserProtocol > 0 Then
-      ThisUser.Protocol := Session.FileBase.SelectProtocol(False, True)
-    Else
-      ThisUser.Protocol := Config.FProtocol;
+    Case Config.UserProtocol of
+      0 : ThisUser.Protocol := #0;
+      1 : ThisUser.Protocol := Config.FProtocol;
+      2 : ThisUser.Protocol := Session.FileBase.SelectProtocol(False, True);
+    End;
 
     GetPassword(False);
   End;