diff options
| -rw-r--r-- | emails.lps | 92 | ||||
| -rw-r--r-- | unit1.pas | 4 |
2 files changed, 48 insertions, 48 deletions
@@ -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> @@ -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; |