-- Downloaded From: http://c-command.com/scripts/spamsieve/corpus-sample
-- Last Modified: 2007-08-17



tell application "SpamSieve"
    tell current corpus
    
        -- log the basic properties
        log {"Corpus File:", file as string}
        log {"Spam Messages:", spam message count as integer}
        log {"Good Messages:", good message count as integer}
        
        -- log all the words
        set n to count words
        repeat with i from 1 to n
            log word i as string
        end repeat
        
        -- If you know a word, you can view or edit its information
        -- by looking up the token info with its name. For instance:
        set t to token info "foo"
        
        -- display the info about "foo"
        log properties of t as record
        
        -- double the spam count
        set spam count of t to (2 * (t's spam count))
        
        -- remove it from the corpus
        set spam count of t to 0
        set good count of t to 0
        
        -- add a new word
        set good count of token info "hammy" to 1
    end tell
end tell