This will add either the Sender's email address or the Sender's Domain to a Mail rule.

Mail - Update Rule.applescript

#################################################################################
# Title: Mail - Update Rule
#################################################################################

#Iain Dunn
#Logic2design.com
#[email protected]

# Contributors, inspration and sources
# https://leancrew.com/all-this/2021/06/hey-i-sped-up-apple-mail-rules/

set defaultRule to "🌑 The Black Hole - Sender"

(choose from list {"🌑 The Black Hole - Sender", "🌑 The Black Hole - Domain", "📊 Business - Sender", "📊 Business - Domain", "💲 Finance - Sender", "💲 Finance - Domain", "📖 Recreation - Sender", "📖 Recreation - Domain", "👱‍♂️ Personal - Sender", "👱‍♂️ Personal - Domain", "🛒 Purchases - Sender", "🛒 Purchases - Domain", "🛠 Work - Sender", "🛠 Work - Domain"} default items defaultRule OK button name "Select" with prompt "Select the Rule" with title "Add to Mail Rule")
set theRule to result as text

if the theRule = "🌑 The Black Hole - Sender" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "🌑 The Black Hole"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						set qualifier to equal to value
						set expression to spamAddr
					end tell
				end tell
				
				-- Delete the message
				set mailbox of item loop of theMessages to mailbox "Trash" of acct
				-- Next Message
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
else if theRule = "🌑 The Black Hole - Domain" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				set normDelims to AppleScript's text item delimiters
				set AppleScript's text item delimiters to "@"
				set theDomain to text item 2 of spamAddr
				set AppleScript's text item delimiters to normDelims
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "🌑 The Black Hole"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						-- set qualifier to equal to value
						set qualifier to does contain value
						set expression to theDomain
					end tell
				end tell
				
				-- Delete the message
				set mailbox of item loop of theMessages to mailbox "Trash" of acct
				
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
else if the theRule = "💲 Finance - Sender" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "💲 Finance"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						set qualifier to equal to value
						set expression to spamAddr
					end tell
				end tell
				
				-- Delete the message
				set mailbox of item loop of theMessages to mailbox "Trash" of acct
				-- Next Message
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
else if theRule = "💲 Finance - Domain" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				set normDelims to AppleScript's text item delimiters
				set AppleScript's text item delimiters to "@"
				set theDomain to text item 2 of spamAddr
				set AppleScript's text item delimiters to normDelims
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "💲 Finance"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						-- set qualifier to equal to value
						set qualifier to does contain value
						set expression to theDomain
					end tell
				end tell
				
				-- Delete the message
				set mailbox of item loop of theMessages to mailbox "Trash" of acct
				
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
	
else if theRule = "👱‍♂️ Personal - Sender" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "👱‍♂️ Personal"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						set qualifier to equal to value
						set expression to spamAddr
					end tell
				end tell
				
				-- Next Message
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
else if theRule = "👱‍♂️ Personal - Domain" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				set normDelims to AppleScript's text item delimiters
				set AppleScript's text item delimiters to "@"
				set theDomain to text item 2 of spamAddr
				set AppleScript's text item delimiters to normDelims
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "👱‍♂️ Personal"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						-- set qualifier to equal to value
						set qualifier to does contain value
						set expression to theDomain
					end tell
				end tell
				
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
else if theRule = "🛒 Purchases - Sender" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "🛒 Purchases"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						set qualifier to equal to value
						set expression to spamAddr
					end tell
				end tell
				
				-- Next Message
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
else if theRule = "🛒 Purchases - Domain" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				set normDelims to AppleScript's text item delimiters
				set AppleScript's text item delimiters to "@"
				set theDomain to text item 2 of spamAddr
				set AppleScript's text item delimiters to normDelims
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "🛒 Purchases"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						-- set qualifier to equal to value
						set qualifier to does contain value
						set expression to theDomain
					end tell
				end tell
				
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
else if theRule = "📖 Recreation - Sender" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "📖 Recreation"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						set qualifier to equal to value
						set expression to spamAddr
					end tell
				end tell
				
				-- Next Message
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
else if theRule = "📖 Recreation - Domain" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				set normDelims to AppleScript's text item delimiters
				set AppleScript's text item delimiters to "@"
				set theDomain to text item 2 of spamAddr
				set AppleScript's text item delimiters to normDelims
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "📖 Recreation"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						-- set qualifier to equal to value
						set qualifier to does contain value
						set expression to theDomain
					end tell
				end tell
				
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
else if theRule = "🛠 Work - Sender" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "🛠 Work"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						set qualifier to equal to value
						set expression to spamAddr
					end tell
				end tell
				
				-- Next Message
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
else if theRule = "🛠 Work - Domain" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				set normDelims to AppleScript's text item delimiters
				set AppleScript's text item delimiters to "@"
				set theDomain to text item 2 of spamAddr
				set AppleScript's text item delimiters to normDelims
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "🛠 Work"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						-- set qualifier to equal to value
						set qualifier to does contain value
						set expression to theDomain
					end tell
				end tell
				
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
else if theRule = "📊 Business - Sender" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "📊 Business"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						set qualifier to equal to value
						set expression to spamAddr
					end tell
				end tell
				
				-- Next Message
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
else if theRule = "📊 Business - Domain" then
	
	tell application "Mail"
		-- Start by getting the sender's address and the message's account
		set theMessages to selection
		--repeat with a in (theMessages)
		
		if theMessages is not {} then -- check empty list
			set loop to 1
			repeat with i from 1 to the number of items in theMessages
				
				set acct to account of mailbox of item loop of theMessages
				set spamAddr to extract address from sender of item loop of theMessages
				set normDelims to AppleScript's text item delimiters
				set AppleScript's text item delimiters to "@"
				set theDomain to text item 2 of spamAddr
				set AppleScript's text item delimiters to normDelims
				get acct
				
				-- Add that address to a new condition of the rule
				set psRule to rule "📊 Business"
				tell psRule
					set newCondition to make new rule condition at beginning of rule conditions
					tell newCondition
						set rule type to from header
						-- set qualifier to equal to value
						set qualifier to does contain value
						set expression to theDomain
					end tell
				end tell
				
				set loop to loop + 1
			end repeat
		end if
		
	end tell
	
	
	
end if