indexing
	description: "User retrieve email use case."
	author: "Ueli Weiss"
	date: "$Date: 2007-10-23 15:41:00 +0200 (Tue, 23 Oct 2007) $"
	revision: "$Revision: 1128 $"

class
	USER_RETRIEVE_EMAIL

inherit
	USE_CASE

	O_USER_CONSTANTS

create
	make

feature -- Access

	namespace: STRING is
			-- Namespace of this use case.
		once
			Result := user_namespace
		end

	type: STRING is
			-- Message type of this use case.
		once
			Result := user_retrieve_email_type
		end

feature -- Basic operation

	start (a_msg: O_MESSAGE) is
			-- Start the use case by a_msg.
		do
			forward_to_node (a_msg, "storage1")
		end

end