From 985b8b073d27a1db93f4f6cd4fbf03c4aa1d0ee5 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 6 Jul 2023 20:48:00 +0200
Subject: [PATCH] fix #120 - "select all" in the messages can hang dexed for a
 while

---
 src/u_messages.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/u_messages.pas b/src/u_messages.pas
index e0cd4011..cb50cd5e 100644
--- a/src/u_messages.pas
+++ b/src/u_messages.pas
@@ -811,6 +811,7 @@ var
   i: integer;
   n: TTreeNode;
 begin
+  List.ClearSelection();
   List.BeginUpdate;
   for i := 0 to List.Items.Count-1 do
   begin