View Single Post
Good.

All a bit easier in a plain text (Markdown) outline of course:

Code:
set str to ""
tell application "Mail"
	activate
	repeat with oSeln in selection as list
		tell oSeln to set str to (str & "[" & subject) & "](message:%3C" & message id & "%3E)" & linefeed & linefeed
	end repeat
end tell
if str ≠ "" then set the clipboard to text 1 thru -3 of str