From c65c724c74d60509aba7dc72667e08ad323a37aa Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 3 May 2015 18:02:26 +0200
Subject: [PATCH] messages, support for quick jump using kbrd

- arrows up/down: as single LMB
- enter: as double LMB
---
 src/ce_messages.pas | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 8e6ef0ad..182278b3 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -277,17 +277,23 @@ end;
 procedure TCEMessagesWidget.ListKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 var
-  i: NativeInt;
+  i: Integer;
 begin
-  if Key in [VK_BACK, VK_DELETE] then
-  begin
-    if List.SelectionCount > 0 then
+  case Key of
+    VK_BACK, VK_DELETE:
     begin
-    for i := List.Items.Count-1 downto 0 do
-      if List.Items[i].MultiSelected then
-        List.Items.Delete(List.Items[i]);
-    end
-    else clearbyContext(amcAll);
+      if List.SelectionCount > 0 then
+      begin
+      for i := List.Items.Count-1 downto 0 do
+        if List.Items[i].MultiSelected then
+          List.Items.Delete(List.Items[i]);
+      end
+      else clearbyContext(amcAll);
+    end;
+    VK_UP, VK_DOWN:
+      if fOptions.singleMessageClick then handleMessageClick(nil);
+    VK_RETURN:
+      handleMessageClick(nil);
   end;
 end;