Am Sonntag, 14. Juli 2002 21:33 schrieb Ed Dana: > I've created a small program to scan emails from my inbox. It works > fine until I try and remove them. Without the REMOVE command, it parses > all emails in the inbox. Once I add the REMOVE command, it takes several > passes to get everything cleared out. > > The script looks like this: > Inbox: Open Load %Mailbox.r > Print [ Length? Inbox "messages on server." ] > > ForAll Inbox [ > Mail: Import-email First Inbox > Print [ Index? Inbox Mail/Subject ] > Remove Inbox > ]
(not tested) while[not empty? Inbox] [ Mail: Import-email First Inbox Print [ Index? Inbox Mail/Subject ] Remove Inbox ] if you don't want to remove everything while[not empty? series][ either i-want-to-keep-it[ series: next series ][ remove series ] ] > > close inbox > > The results look like this: > >> do %Test.r > > 5 messages on server. > 1 And now, a massage from the Swedish Prime Minister! > 2 She sells sea shells by the sea shore. > 3 And now, for something completely different! > > >> do %Test.r > > 2 messages on server. > 1 Ask not what you can do for your country! > > >> do %Test.r > > 1 messages on server. > 1 Inna gadda davida, baby! > > >> do %Test.r > > 0 messages on server. > > Even if I wait five minutes, It still does this, so it's not a latency > issue. > > What gives? Am I missing the obvious? -Volker -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
