Applescript mail action to translate texts to piglatin and send them back - Jul 24 2009

piglatin.scpt

using terms from application "Mail"
	on perform mail action with messages theMessages
		tell application "Mail"
			repeat with theMessage in theMessages
				set theText to content of theMessage
				set theSender to sender of theMessage
				
				set TempTID to AppleScript's text item delimiters
				set AppleScript's text item delimiters to space
				set theText to text items of theText
				set AppleScript's text item delimiters to "%20"
				set theText to theText as string
				set AppleScript's text item delimiters to TempTID
				
				tell application "WebKit.app"
					open location "http://piglatin.neilvallon.com/piglatin.php?msg=" & theText & "&sender=" & theSender
				end tell
				
			end repeat
		end tell
	end perform mail action with messages
end using terms from

tell application "Mail"
	set myMessages to selection
	tell me to perform mail action with messages myMessages
end tell