    class
    	EMAIL

    General
    	cluster: mail
    	description: "Email Object"
    	create: make_with_entry, make

    Ancestors
    	MEMORY_RESOURCE*

    Queries
    	Ack_begin_connection: INTEGER_32
    	Ack_end_connection: INTEGER_32
    	Can_be_received: BOOLEAN
    	Can_be_sent: BOOLEAN
    	Can_receive: BOOLEAN
    	Can_send: BOOLEAN
    	Data: STRING_8
    	Data_code: INTEGER_32
    	Default_headers: ARRAY [STRING_8]
    	Ehlo: STRING_8
    	error: BOOLEAN
    	H_bcc: STRING_8
    	H_cc: STRING_8
    	H_from: STRING_8
    	H_reply_to: STRING_8
    	H_subject: STRING_8
    	H_to: STRING_8
    	has_header_entry (header_key: STRING_8): BOOLEAN
    	header (h: STRING_8): HEADER
    	headers: HASH_TABLE [HEADER, STRING_8]
    	Helo: STRING_8
    	is_header_valid: BOOLEAN
    	is_initiated: BOOLEAN
    	Mail_bcc: STRING_8
    	Mail_cc: STRING_8
    	Mail_from: STRING_8
    	mail_message: STRING_8
    	Mail_reply_to: STRING_8
    	mail_signature: STRING_8
    	Mail_to: STRING_8
    	No_valid_recipient: INTEGER_32
    	Ok: INTEGER_32
    	Quit: STRING_8
    	Remote_error: INTEGER_32
    	Size_error: INTEGER_32
    	Struct_error: INTEGER_32
    	Transfer_error: TRANSFER_ERROR

    Commands
    	add_header_entries (header_key: STRING_8; header_entries: ARRAY [STRING_8])
    	add_header_entry (header_key, header_entry: STRING_8)
    	disable_initiated
    	disable_transfer_error
    	enable_initiated
    	enable_transfer_error
    	make
    	make_with_entry (header_from, header_to: STRING_8)
    	receive
    	remove_header_entries (header_key: STRING_8)
    	remove_header_entry (header_key, header_entry: STRING_8)
    	send
    	set_message (s: STRING_8)
    	set_signature (s: STRING_8)
    	set_transfer_error_message (s: STRING_8)