version	U12.1.00
uid	smtpclient.u1-1786033039-0
record	mail__SmtpClient__state,11
	0,__s
	1,__m
	2,hostname
	3,sent_helo
	4,server
	5,port
	6,connection
	7,sbuff
	8,timeout
	9,listeners
	10,reason
record	mail__SmtpClient__methods,50
	0,set_hostname
	1,open_connection
	2,close_connection
	3,send_message
	4,smtp_address
	5,send_command
	6,read_response
	7,send_first_header
	8,send_headers_list
	9,send_catenated_header
	10,send_headers
	11,set_one
	12,initially
	13,error_and_close
	14,set_timeout
	15,open
	16,close
	17,set_server
	18,set_port
	19,send
	20,strerror
	21,recv
	22,write_str
	23,write_line
	24,read_line
	25,read_str
	26,genlisteners
	27,fire
	28,connect
	29,disconnect_fromlist
	30,disconnect_all
	31,disconnect
	32,error
	33,get_reason
	34,test_flag
	35,as_attrib
	36,int_val
	37,int_vals
	38,numeric_val
	39,numeric_vals
	40,cset_val
	41,string_val
	42,string_vals
	43,attrib
	44,set_fields
	45,field_error
	46,net__NetClient
	47,util__Connectable
	48,util__Error
	49,util__SetFields
impl	local
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/netclient.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/connectable.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/error.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/setfields.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/netclient.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/url.u
global	22
	0,000005,mail__SmtpClient_set_hostname,2
	1,000005,mail__SmtpClient_open_connection,1
	2,000005,mail__SmtpClient_close_connection,1
	3,000005,mail__SmtpClient_send_message,2
	4,000005,mail__SmtpClient_smtp_address,2
	5,000005,mail__SmtpClient_send_command,3
	6,000005,mail__SmtpClient_read_response,1
	7,000005,mail__SmtpClient_send_first_header,3
	8,000005,mail__SmtpClient_send_headers_list,3
	9,000005,mail__SmtpClient_send_catenated_header,3
	10,000005,mail__SmtpClient_send_headers,2
	11,000005,mail__SmtpClient_set_one,3
	12,000005,mail__SmtpClient_initially,-2
	13,000011,mail__SmtpClient__state,11
	14,000011,mail__SmtpClient__methods,50
	15,000001,mail__SmtpClient__oprec,0
	16,000001,net__NetClient__oprec,0
	17,000001,util__Connectable__oprec,0
	18,000001,util__Error__oprec,0
	19,000001,util__SetFields__oprec,0
	20,000005,mail__SmtpClient,-1
	21,000005,mail__SmtpClientinitialize,0

proc mail__SmtpClient_set_hostname
	local	0,001000,self
	local	1,001000,s
	declend
	filen	smtpclient.icn
	line	10
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	11
	colm	11
	synt	any
	field	hostname
	var	1
	line	11
	colm	20
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	12
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClient_open_connection
	local	0,001000,self
	local	1,000020,s
	con	0,002000,1,1
	con	1,002000,1,4
	con	2,010000,3,062,062,060
	con	3,010000,26,106,141,151,154,145,144,040,164,157,040,147,145,164,040,151,156,151,164,151,141,154,040,062,062,060,072
	declend
	line	14
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	16
	colm	11
	synt	any
	field	open
	line	16
	colm	16
	synt	any
	invoke	0
	line	16
	colm	18
	synt	any
	esusp
	goto	L3
lab L2
	line	16
	colm	19
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	pnull
	pnull
	var	0
	line	17
	colm	11
	synt	any
	field	sent_helo
	line	17
	colm	23
	synt	any
	keywd	null
	line	17
	colm	21
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	mark	L6
	pnull
	var	0
	line	18
	colm	16
	synt	any
	field	read_response
	line	18
	colm	30
	synt	any
	invoke	0
	line	18
	colm	32
	synt	any
	esusp
	goto	L7
lab L6
	line	18
	colm	33
	synt	any
	pfail
lab L7
	line	18
	colm	9
	synt	any
	asgn
	unmark
lab L5
	mark	L8
	line	19
	colm	7
	synt	if
	mark0
	mark	L9
	pnull
	pnull
	var	1
	int	0
	int	1
	line	19
	colm	17
	synt	any
	synt	any
	sect
	str	2
	line	19
	colm	21
	synt	any
	lexeq
	unmark
	efail
lab L9
	pnull
	unmark
	mark	L10
	pnull
	var	0
	line	20
	colm	21
	synt	any
	field	error_and_close
	pnull
	str	3
	var	1
	line	20
	colm	66
	synt	any
	cat
	line	20
	colm	37
	synt	any
	invoke	1
	line	20
	colm	10
	synt	any
	pret
lab L10
	synt	any
	pfail
	line	19
	colm	7
	synt	endif
	unmark
lab L8
	mark	L11
	mark	L12
	pnull
	var	0
	line	21
	colm	18
	synt	any
	field	connection
	line	21
	colm	7
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	22
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClient_close_connection
	local	0,001000,self
	con	0,010000,4,121,125,111,124
	con	1,002000,3,221
	declend
	line	24
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	25
	colm	11
	synt	any
	field	send_command
	str	0
	int	1
	line	25
	colm	24
	synt	any
	invoke	2
	line	25
	colm	36
	synt	any
	esusp
	goto	L3
lab L2
	line	25
	colm	37
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	mark	L5
	pnull
	var	0
	line	26
	colm	11
	synt	any
	field	close
	line	26
	colm	17
	synt	any
	invoke	0
	line	26
	colm	19
	synt	any
	esusp
	goto	L6
lab L5
	line	26
	colm	20
	synt	any
	pfail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	pnull
	line	27
	colm	7
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	28
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClient_send_message
	local	0,001000,self
	local	1,001000,m
	local	2,000020,s
	local	3,000020,l
	local	4,000020,mb
	local	5,000000,mail__get_all_mailboxes
	local	6,000000,tab
	local	7,000000,find
	local	8,000000,move
	con	0,010000,5,105,110,114,117,040
	con	1,002000,3,250
	con	2,002000,1,1
	con	3,010000,4,122,123,105,124
	con	4,010000,31,111,156,166,141,154,151,144,040,106,162,157,155,040,141,144,144,162,145,163,163,040,151,156,040,155,145,163,163,141,147,145
	con	5,002000,1,0
	con	6,010000,26,116,157,040,106,162,157,155,040,141,144,144,162,145,163,163,040,151,156,040,155,145,163,163,141,147,145
	con	7,010000,11,115,101,111,114,040,106,122,117,115,072,040
	con	8,010000,29,111,156,166,141,154,151,144,040,124,157,040,141,144,144,162,145,163,163,040,151,156,040,155,145,163,163,141,147,145
	con	9,010000,24,116,157,040,124,157,040,141,144,144,162,145,163,163,040,151,156,040,155,145,163,163,141,147,145
	con	10,010000,9,122,103,120,124,040,124,117,072,040
	con	11,010000,4,104,101,124,101
	con	12,002000,3,354
	con	13,010000,0
	con	14,010000,1,056
	con	15,010000,2,056,056
	con	16,010000,3,015,012,056
	con	17,002000,1,3
	con	18,010000,4,015,012,056,056
	declend
	line	30
	colm	11
	synt	any
	mark	L1
	line	33
	colm	7
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	0
	line	33
	colm	15
	synt	any
	field	sent_helo
	line	33
	colm	10
	synt	any
	null
	unmark
	mark	L4
	mark	L5
	pnull
	var	0
	line	34
	colm	14
	synt	any
	field	send_command
	pnull
	str	0
	pnull
	var	0
	line	34
	colm	41
	synt	any
	field	hostname
	line	34
	colm	35
	synt	any
	cat
	int	1
	line	34
	colm	27
	synt	any
	invoke	2
	line	34
	colm	55
	synt	any
	esusp
	goto	L6
lab L5
	line	34
	colm	56
	synt	any
	pfail
lab L6
	unmark
lab L4
	pnull
	pnull
	var	0
	line	35
	colm	14
	synt	any
	field	sent_helo
	int	2
	line	35
	colm	24
	synt	any
	asgn
	goto	L3
lab L2
	pnull
	var	0
	line	37
	colm	14
	synt	any
	field	send_command
	str	3
	int	1
	line	37
	colm	27
	synt	any
	invoke	2
lab L3
	line	33
	colm	7
	synt	endifelse
	unmark
lab L1
	mark	L7
	pnull
	var	3
	mark	L8
	pnull
	var	1
	line	39
	colm	13
	synt	any
	field	get_from
	line	39
	colm	22
	synt	any
	invoke	0
	line	39
	colm	25
	synt	any
	esusp
	goto	L9
lab L8
	mark	L10
	pnull
	var	0
	line	39
	colm	38
	synt	any
	field	error
	str	4
	line	39
	colm	44
	synt	any
	invoke	1
	line	39
	colm	27
	synt	any
	pret
lab L10
	synt	any
	pfail
lab L9
	line	39
	colm	9
	synt	any
	asgn
	unmark
lab L7
	mark	L11
	line	40
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	40
	colm	10
	synt	any
	size
	int	5
	line	40
	colm	13
	synt	any
	numeq
	unmark
	mark	L12
	pnull
	var	0
	line	41
	colm	21
	synt	any
	field	error
	str	6
	line	41
	colm	27
	synt	any
	invoke	1
	line	41
	colm	10
	synt	any
	pret
lab L12
	synt	any
	pfail
	line	40
	colm	7
	synt	endif
	unmark
lab L11
	mark	L13
	mark	L14
	pnull
	var	0
	line	42
	colm	11
	synt	any
	field	send_command
	pnull
	str	7
	pnull
	var	0
	line	42
	colm	44
	synt	any
	field	smtp_address
	pnull
	var	3
	int	2
	line	42
	colm	59
	synt	any
	subsc
	line	42
	colm	57
	synt	any
	invoke	1
	line	42
	colm	38
	synt	any
	cat
	int	1
	line	42
	colm	24
	synt	any
	invoke	2
	line	42
	colm	68
	synt	any
	esusp
	goto	L15
lab L14
	line	42
	colm	69
	synt	any
	pfail
lab L15
	unmark
lab L13
	mark	L16
	pnull
	var	3
	mark	L17
	var	5
	pnull
	var	1
	line	44
	colm	37
	synt	any
	field	get_to
	line	44
	colm	44
	synt	any
	invoke	0
	line	44
	colm	35
	synt	any
	invoke	1
	line	44
	colm	47
	synt	any
	esusp
	goto	L18
lab L17
	mark	L19
	pnull
	var	0
	line	44
	colm	59
	synt	any
	field	error
	str	8
	line	44
	colm	65
	synt	any
	invoke	1
	line	44
	colm	48
	synt	any
	pret
lab L19
	synt	any
	pfail
lab L18
	line	44
	colm	9
	synt	any
	asgn
	unmark
lab L16
	mark	L20
	line	45
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	45
	colm	10
	synt	any
	size
	int	5
	line	45
	colm	13
	synt	any
	numeq
	unmark
	mark	L21
	pnull
	var	0
	line	46
	colm	21
	synt	any
	field	error
	str	9
	line	46
	colm	27
	synt	any
	invoke	1
	line	46
	colm	10
	synt	any
	pret
lab L21
	synt	any
	pfail
	line	45
	colm	7
	synt	endif
	unmark
lab L20
	mark	L22
	line	47
	colm	7
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	3
	line	47
	colm	19
	synt	any
	bang
	line	47
	colm	16
	synt	any
	asgn
	pop
	mark0
	mark	L25
	pnull
	var	0
	line	48
	colm	14
	synt	any
	field	send_command
	pnull
	str	10
	pnull
	var	0
	line	48
	colm	45
	synt	any
	field	smtp_address
	var	4
	line	48
	colm	58
	synt	any
	invoke	1
	line	48
	colm	39
	synt	any
	cat
	int	1
	line	48
	colm	27
	synt	any
	invoke	2
	line	48
	colm	67
	synt	any
	esusp
	goto	L26
lab L25
	line	48
	colm	68
	synt	any
	pfail
lab L26
	unmark
lab L23
	efail
lab L24
	line	47
	colm	7
	synt	endevery
	unmark
lab L22
	mark	L27
	mark	L28
	pnull
	var	0
	line	50
	colm	11
	synt	any
	field	send_command
	str	11
	int	12
	line	50
	colm	24
	synt	any
	invoke	2
	line	50
	colm	36
	synt	any
	esusp
	goto	L29
lab L28
	line	50
	colm	37
	synt	any
	pfail
lab L29
	unmark
lab L27
	mark	L30
	mark	L31
	pnull
	var	0
	line	51
	colm	11
	synt	any
	field	send_headers
	var	1
	line	51
	colm	24
	synt	any
	invoke	1
	line	51
	colm	27
	synt	any
	esusp
	goto	L32
lab L31
	line	51
	colm	28
	synt	any
	pfail
lab L32
	unmark
lab L30
	mark	L33
	pnull
	var	2
	str	13
	line	56
	colm	9
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	pnull
	var	1
	line	57
	colm	8
	synt	any
	field	get_content
	line	57
	colm	20
	synt	any
	invoke	0
	line	57
	colm	23
	synt	any
	bscan
	mark	L35
	line	58
	colm	10
	synt	if
	mark0
	pnull
	str	14
	line	58
	colm	13
	synt	any
	tabmat
	unmark
	pnull
	var	2
	dup
	str	15
	line	59
	colm	15
	synt	any
	cat
	asgn
	line	58
	colm	10
	synt	endif
	unmark
lab L35
	mark	L36
lab L37
	line	61
	colm	10
	synt	while
	mark0
	pnull
	var	2
	dup
	var	6
	var	7
	str	16
	line	61
	colm	35
	synt	any
	invoke	1
	line	61
	colm	28
	synt	any
	invoke	1
	line	61
	colm	18
	synt	any
	cat
	asgn
	unmark
	mark	L37
	mark	L40
	var	8
	int	17
	line	62
	colm	19
	synt	any
	invoke	1
	unmark
lab L40
	pnull
	var	2
	dup
	str	18
	line	63
	colm	15
	synt	any
	cat
	asgn
lab L38
	unmark
	goto	L37
lab L39
	line	61
	colm	10
	synt	endwhile
	unmark
lab L36
	pnull
	var	2
	dup
	var	6
	int	5
	line	65
	colm	22
	synt	any
	invoke	1
	line	65
	colm	12
	synt	any
	cat
	asgn
	line	57
	colm	23
	synt	any
	escan
	unmark
lab L34
	mark	L41
	pnull
	var	0
	line	67
	colm	11
	synt	any
	field	write_line
	var	2
	line	67
	colm	22
	synt	any
	invoke	1
	unmark
lab L41
	mark	L42
	mark	L43
	pnull
	var	0
	line	68
	colm	11
	synt	any
	field	send_command
	str	14
	int	1
	line	68
	colm	24
	synt	any
	invoke	2
	line	68
	colm	33
	synt	any
	esusp
	goto	L44
lab L43
	line	68
	colm	34
	synt	any
	pfail
lab L44
	unmark
lab L42
	mark	L45
	mark	L46
	pnull
	line	70
	colm	7
	synt	any
	pret
lab L46
	synt	any
	pfail
	unmark
lab L45
	pnull
	line	71
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClient_smtp_address
	local	0,001000,self
	local	1,001000,mb
	con	0,010000,1,074
	con	1,010000,1,100
	con	2,010000,1,076
	declend
	line	73
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	pnull
	str	0
	pnull
	var	1
	line	74
	colm	23
	synt	any
	field	get_local_part
	line	74
	colm	38
	synt	any
	invoke	0
	line	74
	colm	18
	synt	any
	cat
	str	1
	line	74
	colm	41
	synt	any
	cat
	pnull
	var	1
	line	74
	colm	53
	synt	any
	field	get_domain
	line	74
	colm	64
	synt	any
	invoke	0
	line	74
	colm	48
	synt	any
	cat
	str	2
	line	74
	colm	67
	synt	any
	cat
	line	74
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	75
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClient_send_command
	local	0,001000,self
	local	1,001000,msg
	local	2,001000,reply
	local	3,000020,s
	local	4,000020,rc
	local	5,000000,integer
	con	0,002000,1,1
	con	1,002000,1,4
	con	2,010000,24,103,157,165,154,144,156,047,164,040,147,145,164,040,162,145,164,165,162,156,040,143,157,144,145
	con	3,010000,17,123,145,162,166,145,162,040,162,145,163,160,157,156,144,145,144,040
	declend
	line	77
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	79
	colm	11
	synt	any
	field	write_line
	var	1
	line	79
	colm	22
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	3
	mark	L3
	pnull
	var	0
	line	81
	colm	16
	synt	any
	field	read_response
	line	81
	colm	30
	synt	any
	invoke	0
	line	81
	colm	32
	synt	any
	esusp
	goto	L4
lab L3
	line	81
	colm	33
	synt	any
	pfail
lab L4
	line	81
	colm	9
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	pnull
	var	4
	mark	L6
	var	5
	pnull
	var	3
	int	0
	int	1
	line	83
	colm	26
	synt	any
	synt	any
	sect
	line	83
	colm	22
	synt	any
	invoke	1
	line	83
	colm	31
	synt	any
	esusp
	goto	L7
lab L6
	mark	L8
	pnull
	var	0
	line	83
	colm	44
	synt	any
	field	error
	str	2
	line	83
	colm	50
	synt	any
	invoke	1
	line	83
	colm	33
	synt	any
	pret
lab L8
	synt	any
	pfail
lab L7
	line	83
	colm	10
	synt	any
	asgn
	unmark
lab L5
	mark	L9
	mark	L10
	mark	L11
	pnull
	var	4
	var	2
	line	84
	colm	18
	synt	any
	numeq
	line	84
	colm	27
	synt	any
	esusp
	goto	L12
lab L11
	pnull
	var	0
	line	84
	colm	33
	synt	any
	field	error
	pnull
	str	3
	var	3
	line	84
	colm	59
	synt	any
	cat
	line	84
	colm	39
	synt	any
	invoke	1
lab L12
	line	84
	colm	7
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	85
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClient_read_response
	local	0,001000,self
	local	1,000020,s
	local	2,000020,t
	con	0,010000,0
	con	1,010000,1,012
	con	2,002000,1,4
	con	3,010000,1,055
	declend
	line	87
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	str	0
	line	90
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	91
	colm	7
	synt	repeat
	mark	L3
	mark	L6
	pnull
	var	1
	mark	L7
	pnull
	var	0
	line	92
	colm	19
	synt	any
	field	read_line
	line	92
	colm	29
	synt	any
	invoke	0
	line	92
	colm	31
	synt	any
	esusp
	goto	L8
lab L7
	line	92
	colm	32
	synt	any
	pfail
lab L8
	line	92
	colm	12
	synt	any
	asgn
	unmark
lab L6
	mark	L9
	pnull
	var	2
	dup
	pnull
	var	1
	str	1
	line	94
	colm	19
	synt	any
	cat
	line	94
	colm	12
	synt	any
	cat
	asgn
	unmark
lab L9
	line	96
	colm	10
	synt	if
	mark0
	mark	L10
	pnull
	pnull
	var	1
	int	2
	line	96
	colm	18
	synt	any
	subsc
	str	3
	line	96
	colm	22
	synt	any
	lexeq
	unmark
	efail
lab L10
	pnull
	unmark
	mark	L11
	var	2
	line	97
	colm	13
	synt	any
	pret
lab L11
	synt	any
	pfail
	line	96
	colm	10
	synt	endif
lab L4
	unmark
	goto	L3
lab L5
	line	91
	colm	7
	synt	endrepeat
	unmark
lab L2
	pnull
	line	99
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClient_send_first_header
	local	0,001000,self
	local	1,001000,m
	local	2,001000,key
	con	0,010000,2,072,040
	declend
	line	103
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	104
	colm	11
	synt	any
	field	write_line
	pnull
	pnull
	var	2
	str	0
	line	104
	colm	26
	synt	any
	cat
	pnull
	var	1
	line	104
	colm	35
	synt	any
	field	get_first_header
	var	2
	line	104
	colm	52
	synt	any
	invoke	1
	line	104
	colm	32
	synt	any
	cat
	line	104
	colm	22
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	105
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClient_send_headers_list
	local	0,001000,self
	local	1,001000,m
	local	2,001000,key
	con	0,010000,2,072,040
	declend
	line	109
	colm	11
	synt	any
	mark	L1
	line	110
	colm	7
	synt	every
	mark0
	pnull
	var	0
	line	110
	colm	17
	synt	any
	field	write_line
	pnull
	pnull
	var	2
	str	0
	line	110
	colm	32
	synt	any
	cat
	pnull
	pnull
	var	1
	line	110
	colm	42
	synt	any
	field	get_headers
	var	2
	line	110
	colm	54
	synt	any
	invoke	1
	line	110
	colm	40
	synt	any
	bang
	line	110
	colm	38
	synt	any
	cat
	line	110
	colm	28
	synt	any
	invoke	1
	pop
lab L2
	efail
lab L3
	line	110
	colm	7
	synt	endevery
	unmark
lab L1
	pnull
	line	111
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClient_send_catenated_header
	local	0,001000,self
	local	1,001000,m
	local	2,001000,key
	con	0,010000,2,072,040
	declend
	line	115
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	116
	colm	11
	synt	any
	field	write_line
	pnull
	pnull
	var	2
	str	0
	line	116
	colm	26
	synt	any
	cat
	pnull
	var	1
	line	116
	colm	35
	synt	any
	field	get_catenated_headers
	var	2
	line	116
	colm	57
	synt	any
	invoke	1
	line	116
	colm	32
	synt	any
	cat
	line	116
	colm	22
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	117
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClient_send_headers
	local	0,001000,self
	local	1,001000,m
	local	2,000020,x
	local	3,000040,rfc822_headers
	local	4,000000,set
	local	5,000000,map
	local	6,000000,member
	con	0,010000,4,144,141,164,145
	con	1,010000,11,162,145,163,145,156,164,055,144,141,164,145
	con	2,010000,11,162,145,164,165,162,156,055,160,141,164,150
	con	3,010000,8,162,145,143,145,151,166,145,144
	con	4,010000,6,163,145,156,144,145,162
	con	5,010000,4,146,162,157,155
	con	6,010000,8,162,145,160,154,171,055,164,157
	con	7,010000,13,162,145,163,145,156,164,055,163,145,156,144,145,162
	con	8,010000,11,162,145,163,145,156,164,055,146,162,157,155
	con	9,010000,15,162,145,163,145,156,164,055,162,145,160,154,171,055,164,157
	con	10,010000,2,164,157
	con	11,010000,9,162,145,163,145,156,164,055,164,157
	con	12,010000,2,143,143
	con	13,010000,9,162,145,163,145,156,164,055,143,143
	con	14,010000,3,142,143,143
	con	15,010000,10,162,145,163,145,156,164,055,142,143,143
	con	16,010000,10,155,145,163,163,141,147,145,055,151,144
	con	17,010000,17,162,145,163,145,156,164,055,155,145,163,163,141,147,145,055,151,144
	con	18,010000,11,151,156,055,162,145,160,154,171,055,164,157
	con	19,010000,10,162,145,146,145,162,145,156,143,145,163
	con	20,010000,8,153,145,171,167,157,162,144,163
	con	21,010000,7,163,165,142,152,145,143,164
	con	22,010000,8,143,157,155,155,145,156,164,163
	con	23,010000,9,145,156,143,162,171,160,164,145,144
	con	24,010000,11,122,145,163,145,156,164,055,104,141,164,145
	con	25,010000,6,123,145,156,144,145,162
	con	26,010000,4,106,162,157,155
	con	27,010000,8,122,145,160,154,171,055,124,157
	con	28,010000,13,122,145,163,145,156,164,055,123,145,156,144,145,162
	con	29,010000,11,122,145,163,145,156,164,055,106,162,157,155
	con	30,010000,15,122,145,163,145,156,164,055,122,145,160,154,171,055,124,157
	con	31,010000,2,124,157
	con	32,010000,9,122,145,163,145,156,164,055,124,157
	con	33,010000,9,122,145,163,145,156,164,055,143,143
	con	34,010000,10,122,145,163,145,156,164,055,142,143,143
	con	35,010000,17,122,145,163,145,156,164,055,115,145,163,163,141,147,145,055,111,104
	con	36,010000,11,111,156,055,122,145,160,154,171,055,124,157
	con	37,010000,10,122,145,146,145,162,145,156,143,145,163
	con	38,010000,8,113,145,171,167,157,162,144,163
	con	39,010000,7,123,165,142,152,145,143,164
	con	40,010000,8,103,157,155,155,145,156,164,163
	con	41,010000,9,105,156,143,162,171,160,164,145,144
	declend
	line	119
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	3
	var	4
	pnull
	str	0
	str	1
	str	2
	str	3
	str	4
	str	5
	str	6
	str	7
	str	8
	str	9
	str	10
	str	11
	str	12
	str	13
	str	14
	str	15
	str	16
	str	17
	str	18
	str	19
	str	20
	str	21
	str	22
	str	23
	line	123
	colm	34
	synt	any
	llist	24
	line	123
	colm	33
	synt	any
	invoke	1
	line	123
	colm	25
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	0
	line	126
	colm	11
	synt	any
	field	send_first_header
	var	1
	str	24
	line	126
	colm	29
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	pnull
	var	0
	line	127
	colm	11
	synt	any
	field	send_first_header
	var	1
	str	25
	line	127
	colm	29
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	pnull
	var	0
	line	128
	colm	11
	synt	any
	field	send_first_header
	var	1
	str	26
	line	128
	colm	29
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	pnull
	var	0
	line	129
	colm	11
	synt	any
	field	send_catenated_header
	var	1
	str	27
	line	129
	colm	33
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	pnull
	var	0
	line	130
	colm	11
	synt	any
	field	send_first_header
	var	1
	str	28
	line	130
	colm	29
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	pnull
	var	0
	line	131
	colm	11
	synt	any
	field	send_catenated_header
	var	1
	str	29
	line	131
	colm	33
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	pnull
	var	0
	line	132
	colm	11
	synt	any
	field	send_catenated_header
	var	1
	str	30
	line	132
	colm	33
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	pnull
	var	0
	line	133
	colm	11
	synt	any
	field	send_catenated_header
	var	1
	str	31
	line	133
	colm	33
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	pnull
	var	0
	line	134
	colm	11
	synt	any
	field	send_catenated_header
	var	1
	str	32
	line	134
	colm	33
	synt	any
	invoke	2
	unmark
lab L12
	mark	L13
	pnull
	var	0
	line	135
	colm	11
	synt	any
	field	send_catenated_header
	var	1
	str	12
	line	135
	colm	33
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
	pnull
	var	0
	line	136
	colm	11
	synt	any
	field	send_catenated_header
	var	1
	str	33
	line	136
	colm	33
	synt	any
	invoke	2
	unmark
lab L14
	mark	L15
	pnull
	var	0
	line	137
	colm	11
	synt	any
	field	send_catenated_header
	var	1
	str	14
	line	137
	colm	33
	synt	any
	invoke	2
	unmark
lab L15
	mark	L16
	pnull
	var	0
	line	138
	colm	11
	synt	any
	field	send_catenated_header
	var	1
	str	34
	line	138
	colm	33
	synt	any
	invoke	2
	unmark
lab L16
	mark	L17
	pnull
	var	0
	line	139
	colm	11
	synt	any
	field	send_first_header
	var	1
	str	35
	line	139
	colm	29
	synt	any
	invoke	2
	unmark
lab L17
	mark	L18
	pnull
	var	0
	line	140
	colm	11
	synt	any
	field	send_first_header
	var	1
	str	36
	line	140
	colm	29
	synt	any
	invoke	2
	unmark
lab L18
	mark	L19
	pnull
	var	0
	line	141
	colm	11
	synt	any
	field	send_first_header
	var	1
	str	37
	line	141
	colm	29
	synt	any
	invoke	2
	unmark
lab L19
	mark	L20
	pnull
	var	0
	line	142
	colm	11
	synt	any
	field	send_first_header
	var	1
	str	38
	line	142
	colm	29
	synt	any
	invoke	2
	unmark
lab L20
	mark	L21
	pnull
	var	0
	line	143
	colm	11
	synt	any
	field	send_first_header
	var	1
	str	39
	line	143
	colm	29
	synt	any
	invoke	2
	unmark
lab L21
	mark	L22
	pnull
	var	0
	line	144
	colm	11
	synt	any
	field	send_first_header
	var	1
	str	40
	line	144
	colm	29
	synt	any
	invoke	2
	unmark
lab L22
	mark	L23
	pnull
	var	0
	line	145
	colm	11
	synt	any
	field	send_first_header
	var	1
	str	41
	line	145
	colm	29
	synt	any
	invoke	2
	unmark
lab L23
	mark	L24
	line	147
	colm	7
	synt	every
	mark0
	pnull
	var	2
	var	5
	pnull
	pnull
	var	1
	line	147
	colm	25
	synt	any
	field	headers
	line	147
	colm	33
	synt	any
	field	keys
	line	147
	colm	38
	synt	any
	invoke	0
	line	147
	colm	23
	synt	any
	invoke	1
	line	147
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	148
	colm	10
	synt	if
	mark0
	mark	L27
	var	6
	var	3
	var	2
	line	148
	colm	25
	synt	any
	invoke	2
	unmark
	efail
lab L27
	pnull
	unmark
	pnull
	var	0
	line	149
	colm	17
	synt	any
	field	send_headers_list
	var	1
	var	2
	line	149
	colm	35
	synt	any
	invoke	2
	line	148
	colm	10
	synt	endif
	unmark
lab L25
	efail
lab L26
	line	147
	colm	7
	synt	endevery
	unmark
lab L24
	mark	L28
	mark	L29
	pnull
	line	152
	colm	7
	synt	any
	pret
lab L29
	synt	any
	pfail
	unmark
lab L28
	pnull
	line	153
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClient_set_one
	local	0,001000,self
	local	1,001000,attr
	local	2,001000,val
	con	0,010000,8,150,157,163,164,156,141,155,145
	declend
	line	155
	colm	11
	synt	any
	mark	L1
	line	156
	colm	7
	synt	case
	mark0
	var	1
	eret
	mark	L3
	ccase
	str	0
	line	157
	colm	20
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	line	157
	colm	26
	synt	any
	field	set_hostname
	pnull
	var	0
	line	157
	colm	44
	synt	any
	field	string_val
	var	1
	var	2
	line	157
	colm	55
	synt	any
	invoke	2
	line	157
	colm	39
	synt	any
	invoke	1
	goto	L2
lab L3
	pop
	pnull
	pnull
	var	0
	line	158
	colm	23
	synt	any
	field	net__NetClient
	line	158
	colm	38
	synt	any
	field	set_one
	var	1
	var	2
	line	158
	colm	46
	synt	any
	invoke	2
lab L2
	line	156
	colm	7
	synt	endcase
	unmark
lab L1
	pnull
	line	160
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClient_initially
	local	0,001000,self
	local	1,001000,a
	con	0,002000,2,25
	con	1,010000,9,154,157,143,141,154,150,157,163,164
	declend
	line	162
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	163
	colm	11
	synt	any
	field	net__NetClient
	line	163
	colm	26
	synt	any
	field	initially
	line	163
	colm	36
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	164
	colm	11
	synt	any
	field	port
	int	0
	line	164
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	165
	colm	11
	synt	any
	field	server
	str	1
	line	165
	colm	18
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	0
	line	166
	colm	11
	synt	any
	field	set_fields
	var	1
	line	166
	colm	22
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	line	167
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	168
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClient
	local	0,001000,a
	local	1,000020,self
	local	2,000020,clone
	local	3,000000,mail__SmtpClient__oprec
	local	4,000000,mail__SmtpClientinitialize
	local	5,000000,net__NetClient__oprec
	local	6,000000,net__NetClientinitialize
	local	7,000000,util__Connectable__oprec
	local	8,000000,util__Connectableinitialize
	local	9,000000,util__Error__oprec
	local	10,000000,util__Errorinitialize
	local	11,000000,util__SetFields__oprec
	local	12,000000,util__SetFieldsinitialize
	local	13,000000,mail__SmtpClient__state
	local	14,000000,push
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	3
	line	8
	colm	6
	synt	any
	null
	unmark
	var	4
	line	8
	colm	62
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	5
	line	9
	colm	6
	synt	any
	null
	unmark
	var	6
	line	9
	colm	58
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	3
	line	10
	colm	26
	synt	any
	field	net__NetClient
	var	5
	line	10
	colm	42
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	7
	line	11
	colm	6
	synt	any
	null
	unmark
	var	8
	line	11
	colm	64
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	3
	line	12
	colm	26
	synt	any
	field	util__Connectable
	var	7
	line	12
	colm	45
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	13
	colm	3
	synt	if
	mark0
	pnull
	var	9
	line	13
	colm	6
	synt	any
	null
	unmark
	var	10
	line	13
	colm	52
	synt	any
	invoke	0
	line	13
	colm	3
	synt	endif
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	3
	line	14
	colm	26
	synt	any
	field	util__Error
	var	9
	line	14
	colm	39
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	15
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	15
	colm	6
	synt	any
	null
	unmark
	var	12
	line	15
	colm	60
	synt	any
	invoke	0
	line	15
	colm	3
	synt	endif
	unmark
lab L11
	pnull
	pnull
	var	3
	line	16
	colm	26
	synt	any
	field	util__SetFields
	var	11
	line	16
	colm	43
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L12
	pnull
	var	1
	var	13
	line	18
	colm	35
	synt	any
	keywd	null
	var	3
	line	18
	colm	34
	synt	any
	invoke	2
	line	18
	colm	8
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	1
	line	19
	colm	7
	synt	any
	field	__s
	var	1
	line	19
	colm	12
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	mark	L15
	pnull
	pnull
	var	1
	line	20
	colm	7
	synt	any
	field	__m
	line	20
	colm	11
	synt	any
	field	initially
	var	14
	var	0
	var	1
	line	20
	colm	27
	synt	any
	invoke	2
	invoke	-1
	line	20
	colm	37
	synt	any
	esusp
	goto	L16
lab L15
	line	20
	colm	39
	synt	any
	pfail
lab L16
	unmark
lab L14
	mark	L17
	mark	L18
	var	1
	line	21
	colm	3
	synt	any
	pret
lab L18
	synt	any
	pfail
	unmark
lab L17
	pnull
	line	22
	colm	1
	synt	any
	pfail
	end
proc mail__SmtpClientinitialize
	local	0,000000,mail__SmtpClient__oprec
	local	1,000000,mail__SmtpClient__methods
	local	2,000000,mail__SmtpClient_set_hostname
	local	3,000000,mail__SmtpClient_open_connection
	local	4,000000,mail__SmtpClient_close_connection
	local	5,000000,mail__SmtpClient_send_message
	local	6,000000,mail__SmtpClient_smtp_address
	local	7,000000,mail__SmtpClient_send_command
	local	8,000000,mail__SmtpClient_read_response
	local	9,000000,mail__SmtpClient_send_first_header
	local	10,000000,mail__SmtpClient_send_headers_list
	local	11,000000,mail__SmtpClient_send_catenated_header
	local	12,000000,mail__SmtpClient_send_headers
	local	13,000000,mail__SmtpClient_set_one
	local	14,000000,mail__SmtpClient_initially
	local	15,000000,net__NetClient_error_and_close
	local	16,000000,net__NetClient_set_timeout
	local	17,000000,net__NetClient_open
	local	18,000000,net__NetClient_close
	local	19,000000,net__NetClient_set_server
	local	20,000000,net__NetClient_set_port
	local	21,000000,net__NetClient_send
	local	22,000000,net__NetClient_strerror
	local	23,000000,net__NetClient_recv
	local	24,000000,net__NetClient_write_str
	local	25,000000,net__NetClient_write_line
	local	26,000000,net__NetClient_read_line
	local	27,000000,net__NetClient_read_str
	local	28,000000,util__Connectable_genlisteners
	local	29,000000,util__Connectable_fire
	local	30,000000,util__Connectable_connect
	local	31,000000,util__Connectable_disconnect_fromlist
	local	32,000000,util__Connectable_disconnect_all
	local	33,000000,util__Connectable_disconnect
	local	34,000000,util__Error_error
	local	35,000000,util__Error_get_reason
	local	36,000000,util__SetFields_test_flag
	local	37,000000,util__SetFields_as_attrib
	local	38,000000,util__SetFields_int_val
	local	39,000000,util__SetFields_int_vals
	local	40,000000,util__SetFields_numeric_val
	local	41,000000,util__SetFields_numeric_vals
	local	42,000000,util__SetFields_cset_val
	local	43,000000,util__SetFields_string_val
	local	44,000000,util__SetFields_string_vals
	local	45,000000,util__SetFields_attrib
	local	46,000000,util__SetFields_set_fields
	local	47,000000,util__SetFields_field_error
	declend
	line	24
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	var	23
	var	24
	var	25
	var	26
	var	27
	var	28
	var	29
	var	30
	var	31
	var	32
	var	33
	var	34
	var	35
	var	36
	var	37
	var	38
	var	39
	var	40
	var	41
	var	42
	var	43
	var	44
	var	45
	var	46
	var	47
	line	25
	colm	63
	synt	any
	invoke	46
	line	25
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	26
	colm	1
	synt	any
	pfail
	end
