1 files changed, 3 insertions, 1 deletions
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;