[REBOL] can't delete email??

[tim781]

HI,

Can anyone tell me where
I should add the command
"remove mailbox" in this
script.

while [not tail? mailbox] [
     msg: import-email first mailbox
      print [
       "From: " first msg/from
       "Subject: " msg/subject
          ]
            remove mailbox
            mailbox: next mailbox
         ]

No matter where I put it in my script,
it won't delete all my messages. ??

I sent myself 3 emails and only
one was deleted. And no matter
how many times I re-ran the script,
I can't delete the other two.??

thanks timmy