using terms from application "Mail"
	on perform mail action with messages newMessages
		tell application "Mail"
			repeat with theMessage in newMessages
				-- first we find the sender of the message
				set theSender to sender of theMessage as string
				-- now we strip off the sender's domain (everything after the "@")
				set oldDelimiters to AppleScript's text item delimiters
				set AppleScript's text item delimiters to {"@"}
				try
					set theDomain to the second text item of theSender
					-- always set the text item delimiters back as soon as possible!
					set AppleScript's text item delimiters to ""
					-- and strip the last character off the domain, as it will be a ">"
					set theDomain to get characters 1 through ((theDomain's length) - 1) of theDomain
				on error
					set theDomain to "Undetermined"
					set AppleScript's text item delimiters to ""
				end try
				set targetMailbox to "Sorted/" & theDomain
				try
					move theMessage to mailbox targetMailbox of account "Emperor's Mind" of application "Mail"
				on error
					-- do nothing
				end try
			end repeat
		end tell
	end perform mail action with messages
end using terms from