REBOL [ Title: "Email Auto-reply" Date: 10-Sep-1999 File: %mailautoreply.r Purpose: { This example confirms email received from "friends" only. All others will be ignored. } Note: { Will not reply to email from itself. Does not remove the mail from the server. You can use wildcards in the email names. See the popspec.r file for examples of how to setup your mailbox connection. } library: [ level: 'intermediate platform: none type: none domain: [email other-net] tested-under: none support: none license: none see-also: none ] ] friends: [%elvis--earth--net %jobs--apple--com %*--rebol--*] inbox: open load %popspec.r ;file contains POP email box info forall inbox [ mail: import-email message: first inbox foreach friend friends [ if all [ mail/from/1 <> system/user/email find/match/any mail/from/1 friend ][ send first mail/from join "Got your email." [ newline "With subject: " mail/subject newline ] ] ] ] close inbox