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