From a6c8767dc0fd9a5040ef5ab3e2f9ef20a9d2de8f Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 2 Mar 2016 11:42:35 +0100
Subject: [PATCH] clear message filter when messages are cleared

---
 src/ce_messages.lfm | 2 +-
 src/ce_messages.pas | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/ce_messages.lfm b/src/ce_messages.lfm
index ea27dc6e..b5f12780 100644
--- a/src/ce_messages.lfm
+++ b/src/ce_messages.lfm
@@ -24,7 +24,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
         Width = 759
         Align = alClient
         BorderSpacing.Around = 2
-        DefaultItemHeight = 16
+        DefaultItemHeight = 18
         Font.Height = -12
         Font.Name = 'Courier New'
         Font.Quality = fqProof
diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 953dee46..f4ff4b44 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -777,6 +777,7 @@ var
   msgdt: PMessageData;
 begin
   list.BeginUpdate;
+  TreeFilterEdit1.Filter := '';
   if aCtxt = amcAll then
     List.Items.Clear
   else for i := List.Items.Count-1 downto 0 do