From 2229370512bdd8f0c97735c88afb554ebc3af011 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sun, 24 Feb 2013 23:29:30 -0500
Subject: [PATCH] Smart msg jump in standard reader

---
 mystic/bbs_msgbase.pas | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/mystic/bbs_msgbase.pas b/mystic/bbs_msgbase.pas
index 06dcc25..a8315a7 100644
--- a/mystic/bbs_msgbase.pas
+++ b/mystic/bbs_msgbase.pas
@@ -2197,8 +2197,21 @@ Var
         Else
           Session.io.OutFull (Session.GetPrompt(116));
 
-        Str := Session.io.OneKey(ValidKeys, True);
+        Str := Session.io.OneKeyRange(ValidKeys, 1, MsgBase^.GetHighMsgNum);
+
         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;
           'D' : If Session.io.GetYN (Session.GetPrompt(117), True) Then Begin {Delete E-mail}
                   MsgBase^.DeleteMsg;