Add to Mail Rule by Sender (courtesy of Veritrope) Updated to only get address of sender, not name. (e.g. `[email protected]` instead of `"Some Jerks" <[email protected]>`

gistfile1.applescript

tell application "Mail"
	set m to (selection)
	set s to (extract address from sender of item 1 of m)
	set r to rule "Archive"
	tell r to make new rule condition at end of rule conditions with properties {rule type:from header, qualifier:does contain value, expression:s}
end tell