Simple workflow to create a reminder from a message in Mail.app

gistfile1.scpt

on run {input, parameters}
	
	tell application "Mail"
		set theSelection to selection
		set theMessage to first item of theSelection
		set theSubject to subject of theMessage
		set theDescription to "From : " & sender of theMessage & return & content of theMessage
		set theMessageId to message id of theMessage
		set theUrl to "message:%3C" & message id of theMessage & "%3E"
	end tell
	
	tell application "Reminders"
		make reminder with properties {name:theSubject, body:theDescription}
	end tell
	
	return input
end run