How to read all data from input?

Hi, I just finally found solution of how to instantiate rebol automatically, once email is delivered to some account. The problem is - I have to read-out all the input data. I tried it with small messages and it works, however, on larger one - 4 MB (I will not need it, but I just don't want to break some rules), nothing happens. I have a suspicion, that simply using "data: copy system/ports/input" at the beginning of script is not enough. However, even following code doesn't seem to work: buff: copy {} while [data: copy system/ports/input][append buff data] buff: head buff How to do it properly to be sure there are no data left at the input port? Thanks a lot, -pekr-

> buff: copy {} > while [data: copy system/ports/input][append buff data] > buff: head buff > > How to do it properly to be sure there are no data left > at the input > port? >