-- Entourage - Whitelist Recipients
-- https://c-command.com/scripts/spamsieve/entourage-whitelist-recipients
-- Summary: Adds the recipients of the current message to SpamSieve’s whitelist.
-- Requires: SpamSieve, Entourage
-- Install Location: ~/Documents/Microsoft User Data/Entourage Script Menu Items/
-- Last Modified: 2019-05-24



tell application "Microsoft Entourage"
    set theAddresses to {}
    set msgs to current messages
    repeat with m in msgs
        repeat with r in recipients of m
            set a to address of r's address
            copy a 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