From ac8873062173203217e7e9630aa309ba16dd1a92 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 23 Feb 2017 00:36:25 +0100
Subject: [PATCH] prevent list short freezing when selecting all the messages

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

diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index b592fe8f..0fc41d63 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -678,9 +678,11 @@ procedure TCEMessagesWidget.actSelAllExecute(Sender: TObject);
 var
   i: Integer;
 begin
+  List.BeginUpdate;
   for i := 0 to List.Items.Count-1 do
     if List.Items[i].Visible then
       List.Items[i].MultiSelected := true;
+  List.EndUpdate;
 end;
 
 procedure TCEMessagesWidget.actSaveMsgExecute(Sender: TObject);