eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Default protocol support

This commit is contained in:
mysticbbs 2012-08-08 02:31:41 -04:00
parent 1dc246b3c4
commit 0e70d13d19
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/bbs_user.pas
View File

@ -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;