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

Smart msg jump in standard reader

This commit is contained in:
mysticbbs 2013-02-24 23:29:30 -05:00
parent 7f21a95101
commit 2229370512
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
mystic/bbs_msgbase.pas
View File

@ -2197,8 +2197,21 @@ Var
Else Else
Session.io.OutFull (Session.GetPrompt(116)); Session.io.OutFull (Session.GetPrompt(116));
Str := Session.io.OneKey(ValidKeys, True); Str := Session.io.OneKeyRange(ValidKeys, 1, MsgBase^.GetHighMsgNum);
Case Str[1] of Case Str[1] of
#00 : Begin
B := MsgBase^.GetMsgNum;
MsgBase^.SeekFirst(Session.io.RangeValue);
If Not SeekNextMsg(True, False) Then Begin
MsgBase^.SeekFirst(B);
SeekNextMsg(True, False);
End;
Break;
End;
'A' : Break; 'A' : Break;
'D' : If Session.io.GetYN (Session.GetPrompt(117), True) Then Begin {Delete E-mail} 'D' : If Session.io.GetYN (Session.GetPrompt(117), True) Then Begin {Delete E-mail}
MsgBase^.DeleteMsg; MsgBase^.DeleteMsg;