From 57a20764ecd58a76e6959f395025450a92ae1f4d Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Thu, 27 Jun 2019 22:15:19 +0200
Subject: update graphics only once

---
 emails.lps | 92 ++++++++++++++++++++++++++++++--------------------------------
 unit1.pas  |  4 ++-
 2 files changed, 48 insertions(+), 48 deletions(-)

diff --git a/emails.lps b/emails.lps
index 4fb57c3..310acb3 100644
--- a/emails.lps
+++ b/emails.lps
@@ -9,7 +9,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="1"/>
         <CursorPos X="24" Y="8"/>
-        <UsageCount Value="40"/>
+        <UsageCount Value="44"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
@@ -20,9 +20,9 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="251"/>
-        <CursorPos Y="288"/>
-        <UsageCount Value="40"/>
+        <TopLine Value="254"/>
+        <CursorPos Y="274"/>
+        <UsageCount Value="44"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit1>
@@ -30,9 +30,9 @@
         <Filename Value="../units/popimapunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="4"/>
-        <TopLine Value="805"/>
-        <CursorPos X="31" Y="833"/>
-        <UsageCount Value="33"/>
+        <TopLine Value="163"/>
+        <CursorPos Y="5"/>
+        <UsageCount Value="37"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
@@ -41,7 +41,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="22"/>
         <CursorPos X="97" Y="25"/>
-        <UsageCount Value="33"/>
+        <UsageCount Value="37"/>
       </Unit3>
       <Unit4>
         <Filename Value="../units/popunit.pas"/>
@@ -68,7 +68,7 @@
         <EditorIndex Value="2"/>
         <TopLine Value="578"/>
         <CursorPos X="35" Y="618"/>
-        <UsageCount Value="17"/>
+        <UsageCount Value="19"/>
         <Loaded Value="True"/>
       </Unit7>
       <Unit8>
@@ -76,7 +76,7 @@
         <EditorIndex Value="3"/>
         <TopLine Value="367"/>
         <CursorPos X="47" Y="403"/>
-        <UsageCount Value="16"/>
+        <UsageCount Value="18"/>
         <Loaded Value="True"/>
       </Unit8>
       <Unit9>
@@ -116,123 +116,121 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="612" Column="42" TopLine="592"/>
+        <Caret Line="73" Column="10" TopLine="37"/>
       </Position1>
       <Position2>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="616" Column="102" TopLine="592"/>
+        <Caret Line="367" Column="30" TopLine="331"/>
       </Position2>
       <Position3>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="628" Column="26" TopLine="599"/>
+        <Caret Line="368" Column="18" TopLine="332"/>
       </Position3>
       <Position4>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="619" TopLine="604"/>
+        <Caret Line="382" Column="18" TopLine="346"/>
       </Position4>
       <Position5>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="635" TopLine="599"/>
+        <Caret Line="414" Column="33" TopLine="388"/>
       </Position5>
       <Position6>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="629" Column="35" TopLine="604"/>
+        <Caret Line="52" Column="30" TopLine="30"/>
       </Position6>
       <Position7>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="138" Column="47" TopLine="117"/>
+        <Filename Value="../units/popimapunit.pas"/>
+        <Caret Line="414" Column="41" TopLine="393"/>
       </Position7>
       <Position8>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="2"/>
+        <Caret Line="431" Column="39" TopLine="418"/>
       </Position8>
       <Position9>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="24" Column="20"/>
+        <Caret Line="54" Column="32" TopLine="32"/>
       </Position9>
       <Position10>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="34" Column="18"/>
+        <Caret Line="431" Column="43" TopLine="395"/>
       </Position10>
       <Position11>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="312" Column="16" TopLine="284"/>
+        <Caret Line="861" TopLine="827"/>
       </Position11>
       <Position12>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="24" Column="25"/>
       </Position12>
       <Position13>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="309" Column="19" TopLine="297"/>
+        <Caret Line="741" Column="39" TopLine="716"/>
       </Position13>
       <Position14>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="15" Column="32"/>
+        <Caret Line="53" Column="41" TopLine="31"/>
       </Position14>
       <Position15>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="317" Column="27" TopLine="288"/>
+        <Caret Line="408" Column="52" TopLine="372"/>
       </Position15>
       <Position16>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="308" Column="40" TopLine="287"/>
+        <Caret Line="79" Column="20" TopLine="57"/>
       </Position16>
       <Position17>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="138" Column="47" TopLine="117"/>
+        <Filename Value="../units/popimapunit.pas"/>
+        <Caret Line="410" Column="40" TopLine="374"/>
       </Position17>
       <Position18>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="273" TopLine="258"/>
+        <Filename Value="../units/popimapunit.pas"/>
+        <Caret Line="411" Column="30" TopLine="375"/>
       </Position18>
       <Position19>
         <Filename Value="unit1.pas"/>
-        <Caret Line="39" Column="5" TopLine="18"/>
+        <Caret Line="271" Column="17" TopLine="235"/>
       </Position19>
       <Position20>
-        <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="77" Column="12" TopLine="51"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="41" Column="30" TopLine="20"/>
       </Position20>
       <Position21>
-        <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="87" Column="22" TopLine="51"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="97" Column="39" TopLine="62"/>
       </Position21>
       <Position22>
         <Filename Value="unit1.pas"/>
-        <Caret Line="39" Column="7" TopLine="18"/>
+        <Caret Line="268" Column="28" TopLine="254"/>
       </Position22>
       <Position23>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="93" Column="5" TopLine="58"/>
+        <Filename Value="../units/popimapunit.pas"/>
+        <Caret Line="90" Column="22" TopLine="68"/>
       </Position23>
       <Position24>
         <Filename Value="unit1.pas"/>
-        <Caret Line="96" Column="7" TopLine="61"/>
+        <Caret Line="271" Column="14" TopLine="254"/>
       </Position24>
       <Position25>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="97" Column="39" TopLine="62"/>
+        <Filename Value="../units/popimapunit.pas"/>
+        <Caret Line="90" Column="15" TopLine="68"/>
       </Position25>
       <Position26>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="841" Column="33" TopLine="820"/>
+        <Caret Line="60" Column="25" TopLine="38"/>
       </Position26>
       <Position27>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="84" Column="14" TopLine="49"/>
       </Position27>
       <Position28>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="34" Column="19" TopLine="12"/>
+        <Caret Line="90" Column="22" TopLine="54"/>
       </Position28>
       <Position29>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="84" Column="19" TopLine="48"/>
+        <Caret Line="850" Column="33" TopLine="826"/>
       </Position29>
       <Position30>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="341" Column="18" TopLine="305"/>
+        <Caret Line="79" Column="5" TopLine="57"/>
       </Position30>
     </JumpHistory>
     <RunParams>
diff --git a/unit1.pas b/unit1.pas
index 2b5c711..43eeb68 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -267,8 +267,10 @@ var
   ausgabe:          string;
 begin
   for i:=pc.nAnz-1 downto 0 do
-    if pc.spam(i)=slSpam then
+    if pc.spam(i)=slSpam then begin
       pc.loesche(i);
+      exit; // we will be notified again (iff there are new messages left)
+    end;
   mitMarkeDa:=0;
   memo1.lines.clear;
   ung:=0;
-- 
cgit v1.2.3-54-g00ecf