getting Mail messages by ID?

Is there any easy way (short of iterating through everything) to retrieve a Mail.app message by its message id alone?

Hi,

This is a solution, but it is slow.

-- Get dummy for message ID	
tell application "Mail"
	set theseMessages to selection
	set messageID to the message id of item 1 of theseMessages
end tell

-- When you have messageID
set timeThen to (current date) -- timer
tell application "Mail"
	set myList to (messages whose message id is messageID) of mailboxes
	repeat with myAcc in accounts
		set myList to myList & (messages whose message id is messageID) of mailboxes of myAcc
	end repeat
end tell
--return myList
repeat with myItem in myList
	if myItem's contents is not missing value then set theTarget to myItem's contents
end repeat
-- Open the target
tell application "Mail"
       activate
	open theTarget
	display dialog ((current date) - timeThen & " seconds") as text -- timer
end tell

Best wishes

John M