Applescript to open the currently selected Mail message in Gmail

open-in-gmail.scpt

tell application "Mail"
	set the_messages to selected messages of first message viewer
	set the_headers to all headers of item 1 of the_messages
	set thecommandstring to "echo \"" & the_headers & "\"| sed -n -e 's/Message-Id: <\\(.*\\)>/\\1/p'" as string
	set sedResult to do shell script thecommandstring
	set link to "https://mail.google.com/mail/#search/in%3Aanywhere+rfc822msgid%3A" & sedResult
	do shell script "open " & link
end tell