[REBOL] Need help with email program

From: mechtn::tkweb::net at: 12-Nov-2001 11:05

hey, i'm making a program to automatically check my inbox for remove's or unsubscribe's 
for my mailing list.. here is the code i am working with and it errors out almost everytime. 
some times it works ok but very rarely.. it gets an error saying ...

connecting to: mail.tkweb.net
** Script Error: find expected series argument of type: series port bitset
** Where: forall
** Near: if find mail/subject word [
    print ["Found in:" mail/from mail/subject]
    write/append %/C/rebol/remove.txt mail/from
    write/append %/C/rebol/remove.txt ","
    inbox: remove inbox
    break
]
>>


now this one basically checks the subject for any of the words from the word-list, i 
have another one that checks the content and it works fine.. the code is exactly the 
same except the if find state has mail/content instead of mail/subject. i dont know why 
the one with subject acts up. Can anyone please help me! Thanks..

REBOL [
    Title: "Email Sniffer"
    File:  %mailsniff.r
    Date:  10-Sep-1999
    Purpose: {
        Example of how to search all incoming email for
        particular keywords.
    }
    Note: {
        Does not remove the mail from the server.
        Any string (word) may be given, even partial words.
        Strings (words) are not case sensitive.
        FOREACH returns a value, just like other functions.
    }
    Category: [email net 2]
]

word-list: ["remove" "unsubscribe" "REMOVE" "Remove" "REMOVE!"]

inbox: open load %popspec.r  ;file contains POP email box info

forall inbox [
    mail: import-email first inbox
    foreach word word-list [
        if find mail/subject word [
            print ["Found in:" mail/from mail/subject]
            write/append %/C/rebol/remove.txt mail/from
            write/append %/C/rebol/remove.txt ","
            inbox: remove inbox
            break
        ]
    ]
]

close inbox

-------
Koie Smith

[1] · 2 · See whole thread