Mail 2 Reminder

gistfile1.applescript

tell application "Mail"
	using terms from application "Mail"
		set theSelection to selection
		set theMessage to first item of theSelection
		set theBody to "message:%3C" & message id of theMessage & "%3E"
		set theSubject to the subject of theMessage
		tell application "Reminders"
			set theList to first item of reminders
			make new reminder with properties {name:theSubject, body:theBody, container:theList}
		end tell
	end using terms from
end tell