tell application "System Events"
	set frontmostApplication to name of the first process whose frontmost is true
end tell

tell application "Mail" to try
   tell message viewer 1 to set selected messages to {first message of beginning of (get selected mailboxes) whose read status is false}
   activate
on error
   beep
end try