indexing
	description: "User my email message"
	author: "Marco Zietzling <marco.zietzling@gmail.com>"
	date: "$Date$"
	revision: "$Revision$"

class
	O_USER_MY_EMAIL_MESSAGE

inherit
	O_USER_SESSION_MESSAGE
		redefine
			type
		end

create
	make

create {O_MESSAGE_FACTORY}
	make_from_generic

feature -- Access

	type: STRING is
			-- Type of the message.
		once
			Result := user_my_email_type
		end

end