From 45c9468f4780921a51dd357c04488ca6bcc85b30 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 25 Jan 2015 06:56:02 +0100
Subject: [PATCH] fix, auto select category before first message

instead of after adding a new list item
---
 src/ce_messages.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 2df813a3..b7992353 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -416,6 +416,8 @@ begin
   dt := new(PMessageData);
   dt^.data := aData;
   dt^.ctxt := aCtxt;
+  if fAutoSelect then if fCtxt <> aCtxt then
+    fBtns[aCtxt].Click;
   item := List.Items.Add(nil, aValue);
   item.Data := dt;
   item.ImageIndex := iconIndex(aKind);
@@ -423,8 +425,6 @@ begin
   clearOutOfRangeMessg;
   scrollToBack;
   Application.ProcessMessages;
-  if fAutoSelect then if fCtxt <> aCtxt then
-    fBtns[aCtxt].Click;
   filterMessages(fCtxt);
 end;