Mori to Mail

I saw a script for sending the contents of Write Room to Mail. I thought it would be useful to have one for Mori, as well. I didn't see if posted on the script and plugin list, so I thought I would add. Sorry if I just missed it.

tell application "Mori"
set noteName to the name of current entry
set noteContent to the note of current entry
end tell

tell application "Mail"
set newMessage to make new outgoing message with properties {visible:true, content:noteName & return & return & noteContent & return & return}
activate
end tell