unlocked2412

tell application "Mail"
	set lst to (get selection)
	set _msgRecent to my GetNewerMessage(lst)
	repeat with _msg in _msgRecent
		set _msgSubject to _msg's subject
		set _msgBody to _msg's content
		set _msgSender to _msg's sender
		set _msgURL to "message://%3c" & _msg's message id & "%3e" -- Fixed: OmniFocus doesn't accept "<" and ">" as part of a URL
		tell application "OmniFocus"
			tell quick entry