class
	SMTP_PROTOCOL

General
	cluster: net.mail
	description: "Objects that ..."
	create: make

Ancestors
	SENDING_PROTOCOL

Queries
	Ack_begin_connection: INTEGER
	Ack_end_connection: INTEGER
	Can_be_received: BOOLEAN
	Can_be_sent: BOOLEAN
	Can_receive: BOOLEAN
	Can_send: BOOLEAN
	Data: STRING
	Data_code: INTEGER
	Default_headers: ARRAY [STRING]
	Default_port: INTEGER
	Ehlo: STRING
	error: BOOLEAN
	H_bcc: STRING
	H_cc: STRING
	H_from: STRING
	H_reply_to: STRING
	H_subject: STRING
	H_to: STRING
	header (h: STRING): HEADER
	headers: HASH_TABLE [HEADER, STRING]
	Helo: STRING
	hostname: STRING
	is_connected: BOOLEAN
	is_header_valid: BOOLEAN
	is_initiated: BOOLEAN
	Mail_bcc: STRING
	Mail_cc: STRING
	Mail_from: STRING
	Mail_reply_to: STRING
	Mail_to: STRING
	memory_resource: MEMORY_RESOURCE
	No_valid_recipient: INTEGER
	Ok: INTEGER
	pipelining: BOOLEAN
	Quit: STRING
	Remote_error: INTEGER
	Size_error: INTEGER
	smtp_code_number: INTEGER
	smtp_reply: STRING
	Struct_error: INTEGER
	Transfer_error: TRANSFER_ERROR

Commands
	close_protocol
	disable_connected
	disable_initiated
	disable_pipelining
	disable_transfer_error
	enable_connected
	enable_initiated
	enable_pipelining
	enable_transfer_error
	initialize
	initiate_protocol
	make (host, user: STRING)
	set_default_port (new_port: INTEGER)
	set_transfer_error_message (s: STRING)
	transfer (resource: MEMORY_RESOURCE)