From 07acbd42cf7a6b434ee2978c773d99e2531a7c73 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Tue, 11 Nov 2014 06:29:46 +0100
Subject: [PATCH] fix message selection not yet compatible with new system:
 filtering, selection

---
 src/ce_messages.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 6d11b96f..7fba5aaf 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -272,6 +272,7 @@ var
   i: NativeInt;
 begin
   for i := 0 to List.Items.Count-1 do
+    if List.Items[i].Visible then
       List.Items[i].MultiSelected := true;
 end;
 
@@ -373,6 +374,7 @@ begin
   clearOutOfRangeMessg;
   scrollToBack;
   Application.ProcessMessages;
+  filterMessages(fCtxt);
 end;
 
 procedure TCEMessagesWidget.lmClearByContext(aCtxt: TCEAppMessageCtxt);
@@ -466,6 +468,7 @@ begin
   begin
     itm := List.Items[i];
     Itm.Visible := false;
+    Itm.Selected := false;
     msgdt := PMessageData(itm.Data);
     if aCtxt = amcAll then
       Itm.Visible := true