From bce244b754314d2ae18ba0915bf948ecb4691ba4 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 4 Jan 2015 22:31:54 +0100
Subject: [PATCH] clear by context, clear editor specific msg, not all the
 editor msg

---
 src/ce_messages.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 2157c502..6b3739fb 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -289,7 +289,14 @@ end;
 
 procedure TCEMessagesWidget.actClearCurCatExecute(Sender: TObject);
 begin
-  lmClearbyContext(fCtxt);
+  case fCtxt of
+    amcAll, amcApp, amcMisc :
+      lmClearbyContext(fCtxt);
+    amcEdit: if fDoc <> nil then
+      lmClearbyData(fDoc);
+    amcProj: if fProj <> nil then
+      lmClearbyData(fProj);
+  end;
 end;
 
 procedure TCEMessagesWidget.actCopyMsgExecute(Sender: TObject);