-- Copy Whitelist or Blocklist Addresses
-- https://c-command.com/scripts/spamsieve/copy-whitelist-addresses
-- Summary: Copies the addresses of enabled “Is Equal to” “From (address)” whitelist or blocklist rules to the clipboard.
-- Requires: SpamSieve
-- Install Location: ~/Library/Scripts/Applications/SpamSieve
-- Last Modified: 2019-05-24



tell application "SpamSieve"
    display dialog "Copy addresses from which rule list? Afterwards, you can use the Edit > Paste command to access the addresses." buttons {"Blocklist", "Whitelist"} default button "Whitelist"
    if button returned of the result is "Whitelist" then
        set _ruleList to whitelist
    else
        set _ruleList to blocklist
    end if
    tell _ruleList
        set _addresses to text to match of every rule whose match field is from field and match style is exact style and isEnabled is true
        set AppleScript's text item delimiters to return
        set _string to _addresses as string
        set the clipboard to _string
    end tell
end tell