-- Downloaded From:
-- http://c-command.com/scripts/spamsieve/copy-whitelist-addresses



tell application "SpamSieve"
    tell whitelist
        set theAddresses to text to match of every rule whose match field is from field and isEnabled is true
        set AppleScript's text item delimiters to return
        set theString to theAddresses as string
        set the clipboard to theString
    end tell
end tell