From 0e70d13d192e1170ba0bbe2c01c123db6a86db6a Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Wed, 8 Aug 2012 02:31:41 -0400
Subject: [PATCH] Default protocol support

---
 mystic/bbs_user.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/mystic/bbs_user.pas b/mystic/bbs_user.pas
index f5152f0..687de1d 100644
--- a/mystic/bbs_user.pas
+++ b/mystic/bbs_user.pas
@@ -932,6 +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;
+
     GetPassword(False);
   End;
 
@@ -1337,6 +1342,7 @@ Begin
     29  : ThisUser.UseFullChat := Not ThisUser.UseFullChat;
     30  : ThisUser.QwkFiles := Not ThisUser.QwkFiles;
     31  : Session.FileBase.SelectArchive;
+    32  : ThisUser.Protocol := Session.FileBase.SelectProtocol(False, True);
   End;
 End;