Boy, guess I'm a little absent minded these days (too
much on the mind): Here's a more correct version of the
example mail filter I sent... -jeff
> #!/path/to/rebol -qws
> REBOL [
> Title: "Mail filter"
> ]
>
> stdin: copy system/ports/input
> message: import-email stdin
>
> foreach [item file][
> "REBOL" %rebol-box "Debian" %deb-box "me" %me-box
> ][
> if find item message/content [
> write/append file stdin exit
> ]
> ] write/append %default-box stdin
>
> quit
;-same thru REBOL header
;- saves a step
message: import-email stdin: copy system/ports/input
foreach [item file][
"REBOL" %rebol-box "Debian" %deb-box "me" %me-box
][
;- the args to find were backwards
if find message/content item [
write/append file stdin
QUIT ;- instead of exit (not in function)
]
]
write/append %default-box stdin
quit
