-- Downloaded From: http://c-command.com/scripts/spamsieve/powermail-whitelist-recipients
-- Last Modified: 2007-08-17



tell application "PowerMail"
    set theAddresses to {}
    set msgs to current messages
    repeat with m in msgs
        repeat with r in m's recipients
            set a to r's address
            set e to a's email address
            copy e to end of theAddresses
        end repeat
    end repeat
    
    tell application "SpamSieve"
        tell whitelist
            add sender rules for addresses theAddresses
        end tell
    end tell
end tell