[REBOL] help with trivial emailgetter
From: philb:upnaway at: 31-Oct-2002 22:08
Hi,
Dont think you need the
message: next message
as the
remove first messages
will remove the first entry in the list of messages
Cheers Phil
=== Original Message ===
Can you tell me the syntactical error I am making which keeps my
messages from being removed from my server, the line I am assuming
should remove the message is "remove first messages" :
REBOL[Title "emailgetter"]
mailbox: [
scheme: 'pop
host: "hostname"
user: "username"
pass: "password"
]
messages: read mailbox
num-messages: length? messages
while [not tail? messages] [
msg: import-email first messages
filename: rejoin[ trim msg/subject num-messages ".txt"]
write to-file filename msg/content
remove first messages
num-messages: num-messages - 1
messages: next messages
]