-- Entourage - Whitelist Domains
-- https://c-command.com/scripts/spamsieve/entourage-whitelist-domains
-- Summary: Creates whitelist rules for the senders’ domains.
-- Requires: SpamSieve, Entourage
-- Install Location: ~/Documents/Microsoft User Data/Entourage Script Menu Items/
-- Last Modified: 2019-05-24



tell application "Microsoft Entourage"
    set msgs to current messages
    repeat with m in msgs
        set a to address of m's sender
        set d to text (offset of "@" in a) through -1 of a
        tell application "SpamSieve"
            tell whitelist
                make rule with properties {text to match:d, match style:ends with style, match field:from field}
            end tell
        end tell
    end repeat
end tell