using terms from application "Messages"

	on message sent theText with theTexte

	end message sent

	on active chat message received from theBuddy for theTextChat with theText
		decrypt(theText)
	end active chat message received

end using terms from

on decrypt(message)
	if message begins with "-----BEGIN PGP MESSAGE-----" then
		tell application "TextEdit"
			activate
			set theDocument to make new document
			set text of theDocument to message
		end tell

		tell application "System Events"
			keystroke "a" using command down
			keystroke "d" using {command down, shift down}
		end tell
	end if
end decrypt