Mail.app "Next Unread Message"

NextUnreadMessage.scpt

tell application "Mail" to try
	set mailAccounts to every account
	set messageFound to false
	repeat with acc in mailAccounts
		if not messageFound then
			try
				set unreadMessage to {last message of mailbox "INBOX" of acc whose read status is false}
				set messageFound to true
				set accountWithUnread to acc
			end try
		end if
	end repeat
	
	if accountWithUnread exists then
		tell message viewer 1
			set selected mailboxes to {first mailbox of accountWithUnread whose name is "INBOX"}
			delay 0.1
			set selected messages to unreadMessage
		end tell
	end if
	activate
on error
	beep
end try