version	U12.1.00
uid	message.u1-1786033034-0
record	mail__Message__state,6
	0,__s
	1,__m
	2,headers
	3,content
	4,parser
	5,reason
record	mail__Message__methods,71
	0,set_content
	1,get_content
	2,get_decoded_content
	3,set_decoded_content
	4,get_content_object
	5,set_content_object
	6,get_actual_content_transfer_encoding
	7,get_actual_content_type
	8,get_encoding_handler
	9,get_type_handler
	10,to_rfc822
	11,fold
	12,fold1
	13,show_headers
	14,show_message
	15,parse
	16,get_first_header
	17,get_headers
	18,get_catenated_headers
	19,catenate_addresses
	20,add_header
	21,set_header
	22,unset_header
	23,has_header
	24,get_date
	25,set_date
	26,get_to
	27,set_to
	28,add_to
	29,get_reply_to
	30,set_reply_to
	31,add_reply_to
	32,get_resent_to
	33,set_resent_to
	34,add_resent_to
	35,get_cc
	36,set_cc
	37,add_cc
	38,get_resent_cc
	39,set_resent_cc
	40,add_resent_cc
	41,get_bcc
	42,set_bcc
	43,add_bcc
	44,get_resent_bcc
	45,set_resent_bcc
	46,add_resent_bcc
	47,get_from
	48,set_from
	49,add_from
	50,get_sender
	51,set_sender
	52,get_resent_from
	53,set_resent_from
	54,add_resent_from
	55,get_resent_sender
	56,set_resent_sender
	57,get_resent_date
	58,set_resent_date
	59,get_content_type
	60,set_content_type
	61,get_content_disposition
	62,set_content_disposition
	63,get_content_transfer_encoding
	64,set_content_transfer_encoding
	65,set_subject
	66,get_subject
	67,initially
	68,error
	69,get_reason
	70,util__Error
impl	local
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/error.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/format.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/stringbuff.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/cltable.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/comparator.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/md5.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/notification.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/listener.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/setfields.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/timezone.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/time.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/mapbytes.u
global	75
	0,000005,mail__Message_set_content,2
	1,000005,mail__Message_get_content,1
	2,000005,mail__Message_get_decoded_content,1
	3,000005,mail__Message_set_decoded_content,2
	4,000005,mail__Message_get_content_object,1
	5,000005,mail__Message_set_content_object,2
	6,000005,mail__Message_get_actual_content_transfer_encoding,1
	7,000005,mail__Message_get_actual_content_type,1
	8,000005,mail__Message_get_encoding_handler,1
	9,000005,mail__Message_get_type_handler,1
	10,000005,mail__Message_to_rfc822,1
	11,000005,mail__Message_fold,2
	12,000005,mail__Message_fold1,3
	13,000005,mail__Message_show_headers,1
	14,000005,mail__Message_show_message,1
	15,000005,mail__Message_parse,2
	16,000005,mail__Message_get_first_header,2
	17,000005,mail__Message_get_headers,2
	18,000005,mail__Message_get_catenated_headers,3
	19,000005,mail__Message_catenate_addresses,3
	20,000005,mail__Message_add_header,3
	21,000005,mail__Message_set_header,3
	22,000005,mail__Message_unset_header,2
	23,000005,mail__Message_has_header,2
	24,000005,mail__Message_get_date,1
	25,000005,mail__Message_set_date,2
	26,000005,mail__Message_get_to,1
	27,000005,mail__Message_set_to,2
	28,000005,mail__Message_add_to,2
	29,000005,mail__Message_get_reply_to,1
	30,000005,mail__Message_set_reply_to,2
	31,000005,mail__Message_add_reply_to,2
	32,000005,mail__Message_get_resent_to,1
	33,000005,mail__Message_set_resent_to,2
	34,000005,mail__Message_add_resent_to,2
	35,000005,mail__Message_get_cc,1
	36,000005,mail__Message_set_cc,2
	37,000005,mail__Message_add_cc,2
	38,000005,mail__Message_get_resent_cc,1
	39,000005,mail__Message_set_resent_cc,2
	40,000005,mail__Message_add_resent_cc,2
	41,000005,mail__Message_get_bcc,1
	42,000005,mail__Message_set_bcc,2
	43,000005,mail__Message_add_bcc,2
	44,000005,mail__Message_get_resent_bcc,1
	45,000005,mail__Message_set_resent_bcc,2
	46,000005,mail__Message_add_resent_bcc,2
	47,000005,mail__Message_get_from,1
	48,000005,mail__Message_set_from,2
	49,000005,mail__Message_add_from,2
	50,000005,mail__Message_get_sender,1
	51,000005,mail__Message_set_sender,2
	52,000005,mail__Message_get_resent_from,1
	53,000005,mail__Message_set_resent_from,2
	54,000005,mail__Message_add_resent_from,2
	55,000005,mail__Message_get_resent_sender,1
	56,000005,mail__Message_set_resent_sender,2
	57,000005,mail__Message_get_resent_date,1
	58,000005,mail__Message_set_resent_date,2
	59,000005,mail__Message_get_content_type,1
	60,000005,mail__Message_set_content_type,2
	61,000005,mail__Message_get_content_disposition,1
	62,000005,mail__Message_set_content_disposition,2
	63,000005,mail__Message_get_content_transfer_encoding,1
	64,000005,mail__Message_set_content_transfer_encoding,2
	65,000005,mail__Message_set_subject,2
	66,000005,mail__Message_get_subject,1
	67,000005,mail__Message_initially,-2
	68,000011,mail__Message__state,6
	69,000011,mail__Message__methods,71
	70,000001,mail__Message__oprec,0
	71,000001,util__Error__oprec,0
	72,000005,mail__Message,-1
	73,000005,mail__Messageinitialize,0
	74,000005,mail__get_all_mailboxes,1

proc mail__Message_set_content
	local	0,001000,self
	local	1,001000,s
	declend
	filen	message.icn
	line	16
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	17
	colm	11
	synt	any
	field	content
	var	1
	line	17
	colm	20
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_content
	local	0,001000,self
	declend
	line	23
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	24
	colm	18
	synt	any
	field	content
	line	24
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	25
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_decoded_content
	local	0,001000,self
	local	1,000020,h
	declend
	line	30
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	36
	colm	16
	synt	any
	field	get_encoding_handler
	line	36
	colm	37
	synt	any
	invoke	0
	line	36
	colm	39
	synt	any
	esusp
	goto	L3
lab L2
	line	36
	colm	40
	synt	any
	pfail
lab L3
	line	36
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	var	1
	line	41
	colm	15
	synt	any
	field	decode_data
	var	0
	pnull
	var	0
	line	41
	colm	38
	synt	any
	field	content
	line	41
	colm	27
	synt	any
	invoke	2
	line	41
	colm	47
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	41
	colm	52
	synt	any
	field	error
	var	1
	line	41
	colm	58
	synt	any
	invoke	1
lab L7
	line	41
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	42
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_decoded_content
	local	0,001000,self
	local	1,001000,s
	local	2,000020,h
	declend
	line	48
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	mark	L2
	pnull
	var	0
	line	54
	colm	16
	synt	any
	field	get_encoding_handler
	line	54
	colm	37
	synt	any
	invoke	0
	line	54
	colm	39
	synt	any
	esusp
	goto	L3
lab L2
	line	54
	colm	40
	synt	any
	pfail
lab L3
	line	54
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	pnull
	pnull
	var	0
	line	59
	colm	18
	synt	any
	field	content
	mark	L6
	pnull
	var	2
	line	59
	colm	29
	synt	any
	field	encode_data
	var	0
	var	1
	line	59
	colm	41
	synt	any
	invoke	2
	line	59
	colm	49
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	59
	colm	54
	synt	any
	field	error
	var	2
	line	59
	colm	60
	synt	any
	invoke	1
lab L7
	line	59
	colm	26
	synt	any
	asgn
	line	59
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	60
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_content_object
	local	0,001000,self
	local	1,000020,data
	local	2,000020,h
	declend
	line	66
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	69
	colm	19
	synt	any
	field	get_decoded_content
	line	69
	colm	39
	synt	any
	invoke	0
	line	69
	colm	41
	synt	any
	esusp
	goto	L3
lab L2
	line	69
	colm	42
	synt	any
	pfail
lab L3
	line	69
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	2
	mark	L5
	pnull
	var	0
	line	74
	colm	16
	synt	any
	field	get_type_handler
	line	74
	colm	33
	synt	any
	invoke	0
	line	74
	colm	35
	synt	any
	esusp
	goto	L6
lab L5
	line	74
	colm	36
	synt	any
	pfail
lab L6
	line	74
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L7
	mark	L8
	mark	L9
	pnull
	var	2
	line	79
	colm	15
	synt	any
	field	convert_to_object
	var	0
	var	1
	line	79
	colm	33
	synt	any
	invoke	2
	line	79
	colm	46
	synt	any
	esusp
	goto	L10
lab L9
	pnull
	var	0
	line	79
	colm	52
	synt	any
	field	error
	var	2
	line	79
	colm	58
	synt	any
	invoke	1
lab L10
	line	79
	colm	7
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	80
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_content_object
	local	0,001000,self
	local	1,001000,o
	local	2,000020,data
	local	3,000020,h
	declend
	line	86
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	mark	L2
	pnull
	var	0
	line	92
	colm	16
	synt	any
	field	get_type_handler
	line	92
	colm	33
	synt	any
	invoke	0
	line	92
	colm	35
	synt	any
	esusp
	goto	L3
lab L2
	line	92
	colm	36
	synt	any
	pfail
lab L3
	line	92
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	2
	mark	L5
	pnull
	var	3
	line	94
	colm	16
	synt	any
	field	convert_from_object
	var	0
	var	1
	line	94
	colm	36
	synt	any
	invoke	2
	line	94
	colm	46
	synt	any
	esusp
	goto	L6
lab L5
	mark	L7
	pnull
	var	0
	line	94
	colm	59
	synt	any
	field	error
	var	3
	line	94
	colm	65
	synt	any
	invoke	1
	line	94
	colm	48
	synt	any
	pret
lab L7
	synt	any
	pfail
lab L6
	line	94
	colm	12
	synt	any
	asgn
	unmark
lab L4
	mark	L8
	mark	L9
	pnull
	var	0
	line	96
	colm	18
	synt	any
	field	set_decoded_content
	var	2
	line	96
	colm	38
	synt	any
	invoke	1
	line	96
	colm	7
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	97
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_actual_content_transfer_encoding
	local	0,001000,self
	con	0,010000,25,103,157,156,164,145,156,164,055,124,162,141,156,163,146,145,162,055,105,156,143,157,144,151,156,147
	con	1,010000,4,067,142,151,164
	declend
	line	102
	colm	11
	synt	any
	mark	L1
	line	103
	colm	7
	synt	ifelse
	mark	L2
	pnull
	var	0
	line	103
	colm	14
	synt	any
	field	has_header
	str	0
	line	103
	colm	25
	synt	any
	invoke	1
	unmark
	mark	L4
	pnull
	var	0
	line	104
	colm	21
	synt	any
	field	get_content_transfer_encoding
	line	104
	colm	51
	synt	any
	invoke	0
	line	104
	colm	10
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	mark	L5
	str	1
	line	106
	colm	10
	synt	any
	pret
lab L5
	synt	any
	pfail
lab L3
	line	103
	colm	7
	synt	endifelse
	unmark
lab L1
	pnull
	line	107
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_actual_content_type
	local	0,001000,self
	local	1,000000,mail__ContentType
	con	0,010000,12,103,157,156,164,145,156,164,055,124,171,160,145
	con	1,010000,10,164,145,170,164,057,160,154,141,151,156
	declend
	line	112
	colm	11
	synt	any
	mark	L1
	line	113
	colm	7
	synt	ifelse
	mark	L2
	pnull
	var	0
	line	113
	colm	14
	synt	any
	field	has_header
	str	0
	line	113
	colm	25
	synt	any
	invoke	1
	unmark
	mark	L4
	pnull
	var	0
	line	114
	colm	21
	synt	any
	field	get_content_type
	line	114
	colm	38
	synt	any
	invoke	0
	line	114
	colm	10
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	mark	L5
	var	1
	str	1
	line	116
	colm	34
	synt	any
	invoke	1
	line	116
	colm	10
	synt	any
	pret
lab L5
	synt	any
	pfail
lab L3
	line	113
	colm	7
	synt	endifelse
	unmark
lab L1
	pnull
	line	117
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_encoding_handler
	local	0,001000,self
	local	1,000020,enc
	local	2,000020,e
	local	3,000000,mail__get_all_encoding_handlers
	con	0,010000,29,125,156,153,156,157,167,156,040,157,162,040,165,156,150,141,156,144,154,145,144,040,145,156,143,157,144,151,156,147
	declend
	line	122
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	var	0
	line	124
	colm	18
	synt	any
	field	get_actual_content_transfer_encoding
	line	124
	colm	55
	synt	any
	invoke	0
	line	124
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	125
	colm	7
	synt	every
	mark0
	pnull
	var	2
	pnull
	var	3
	line	125
	colm	50
	synt	any
	invoke	0
	line	125
	colm	18
	synt	any
	bang
	line	125
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	126
	colm	10
	synt	if
	mark0
	pnull
	var	2
	line	126
	colm	14
	synt	any
	field	can_handle
	var	1
	line	126
	colm	25
	synt	any
	invoke	1
	unmark
	mark	L5
	var	2
	line	127
	colm	13
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	126
	colm	10
	synt	endif
	unmark
lab L3
	efail
lab L4
	line	125
	colm	7
	synt	endevery
	unmark
lab L2
	mark	L6
	mark	L7
	pnull
	var	0
	line	129
	colm	18
	synt	any
	field	error
	str	0
	line	129
	colm	24
	synt	any
	invoke	1
	line	129
	colm	7
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	130
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_type_handler
	local	0,001000,self
	local	1,000020,ct
	local	2,000020,e
	local	3,000000,mail__get_all_type_handlers
	con	0,010000,33,125,156,153,156,157,167,156,040,157,162,040,165,156,150,141,156,144,154,145,144,040,143,157,156,164,145,156,164,040,164,171,160,145
	declend
	line	135
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	var	0
	line	137
	colm	17
	synt	any
	field	get_actual_content_type
	line	137
	colm	41
	synt	any
	invoke	0
	line	137
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	138
	colm	7
	synt	every
	mark0
	pnull
	var	2
	pnull
	var	3
	line	138
	colm	46
	synt	any
	invoke	0
	line	138
	colm	18
	synt	any
	bang
	line	138
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	139
	colm	10
	synt	if
	mark0
	pnull
	var	2
	line	139
	colm	14
	synt	any
	field	can_handle
	var	1
	line	139
	colm	25
	synt	any
	invoke	1
	unmark
	mark	L5
	var	2
	line	140
	colm	13
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	139
	colm	10
	synt	endif
	unmark
lab L3
	efail
lab L4
	line	138
	colm	7
	synt	endevery
	unmark
lab L2
	mark	L6
	mark	L7
	pnull
	var	0
	line	142
	colm	18
	synt	any
	field	error
	str	0
	line	142
	colm	24
	synt	any
	invoke	1
	line	142
	colm	7
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	143
	colm	1
	synt	any
	pfail
	end
proc mail__Message_to_rfc822
	local	0,001000,self
	local	1,000020,s
	local	2,000020,h
	con	0,010000,0
	con	1,002000,1,1
	con	2,010000,2,072,040
	con	3,002000,1,2
	con	4,010000,2,015,012
	declend
	line	148
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	str	0
	line	150
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	151
	colm	7
	synt	every
	mark0
	pnull
	var	2
	pnull
	pnull
	pnull
	var	0
	line	151
	colm	23
	synt	any
	field	headers
	line	151
	colm	31
	synt	any
	field	sort
	line	151
	colm	36
	synt	any
	invoke	0
	line	151
	colm	18
	synt	any
	bang
	line	151
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	152
	colm	10
	synt	every
	mark0
	pnull
	var	1
	dup
	pnull
	pnull
	var	0
	line	152
	colm	27
	synt	any
	field	fold
	pnull
	pnull
	pnull
	var	2
	int	1
	line	152
	colm	34
	synt	any
	subsc
	str	2
	line	152
	colm	37
	synt	any
	cat
	pnull
	pnull
	var	2
	int	3
	line	152
	colm	47
	synt	any
	subsc
	line	152
	colm	45
	synt	any
	bang
	line	152
	colm	43
	synt	any
	cat
	line	152
	colm	32
	synt	any
	invoke	1
	str	4
	line	152
	colm	51
	synt	any
	cat
	line	152
	colm	18
	synt	any
	cat
	asgn
	pop
lab L5
	efail
lab L6
	line	152
	colm	10
	synt	endevery
	unmark
lab L3
	efail
lab L4
	line	151
	colm	7
	synt	endevery
	unmark
lab L2
	mark	L7
	pnull
	var	1
	dup
	pnull
	str	4
	pnull
	var	0
	line	154
	colm	28
	synt	any
	field	content
	line	154
	colm	21
	synt	any
	cat
	line	154
	colm	9
	synt	any
	cat
	asgn
	unmark
lab L7
	mark	L8
	mark	L9
	var	1
	line	156
	colm	7
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	157
	colm	1
	synt	any
	pfail
	end
proc mail__Message_fold
	local	0,001000,self
	local	1,001000,s
	local	2,000020,res
	local	3,000020,l
	local	4,000020,t
	local	5,000000,any
	local	6,000000,tab
	local	7,000000,many
	local	8,000000,upto
	local	9,000000,pos
	con	0,020000,2,040,011
	con	1,002000,1,1
	con	2,010000,0
	con	3,002000,2,78
	con	4,002000,1,0
	declend
	line	162
	colm	11
	synt	any
	mark	L1
lab L2
	line	166
	colm	7
	synt	while
	mark0
	var	5
	cset	0
	pnull
	var	1
	pnull
	int	1
	line	166
	colm	28
	synt	any
	neg
	line	166
	colm	27
	synt	any
	subsc
	line	166
	colm	18
	synt	any
	invoke	2
	unmark
	mark	L2
	pnull
	pnull
	var	1
	pnull
	int	1
	line	167
	colm	12
	synt	any
	neg
	line	167
	colm	11
	synt	any
	subsc
	str	2
	line	167
	colm	16
	synt	any
	asgn
lab L3
	unmark
	goto	L2
lab L4
	line	166
	colm	7
	synt	endwhile
	unmark
lab L1
	mark	L5
	line	170
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	170
	colm	10
	synt	any
	size
	int	3
	line	170
	colm	13
	synt	any
	numle
	unmark
	mark	L6
	var	1
	line	171
	colm	10
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	170
	colm	7
	synt	endif
	unmark
lab L5
	mark	L7
	pnull
	var	2
	str	2
	line	173
	colm	11
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	3
	str	2
	line	175
	colm	9
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	var	1
	line	176
	colm	9
	synt	any
	bscan
lab L10
	line	176
	colm	11
	synt	repeat
	mark	L10
	mark	L13
	pnull
	var	4
	mark	L14
	var	6
	var	7
	cset	0
	line	181
	colm	27
	synt	any
	invoke	1
	line	181
	colm	20
	synt	any
	invoke	1
	line	181
	colm	36
	synt	any
	esusp
	goto	L15
lab L14
	str	2
lab L15
	line	181
	colm	12
	synt	any
	asgn
	unmark
lab L13
	mark	L16
	pnull
	var	4
	dup
	var	6
	mark	L17
	var	8
	cset	0
	line	182
	colm	29
	synt	any
	invoke	1
	line	182
	colm	37
	synt	any
	esusp
	goto	L18
lab L17
	int	4
lab L18
	line	182
	colm	22
	synt	any
	invoke	1
	line	182
	colm	12
	synt	any
	cat
	asgn
	unmark
lab L16
	mark	L19
	line	183
	colm	10
	synt	ifelse
	mark	L20
	pnull
	pnull
	pnull
	var	3
	line	183
	colm	13
	synt	any
	size
	pnull
	var	4
	line	183
	colm	18
	synt	any
	size
	line	183
	colm	16
	synt	any
	plus
	int	3
	line	183
	colm	21
	synt	any
	numgt
	unmark
	mark	L22
	pnull
	var	2
	pnull
	var	0
	line	185
	colm	24
	synt	any
	field	fold1
	var	2
	var	3
	line	185
	colm	30
	synt	any
	invoke	2
	line	185
	colm	17
	synt	any
	asgn
	unmark
lab L22
	pnull
	var	3
	var	4
	line	186
	colm	15
	synt	any
	asgn
	goto	L21
lab L20
	pnull
	var	3
	dup
	var	4
	line	189
	colm	15
	synt	any
	cat
	asgn
lab L21
	line	183
	colm	10
	synt	endifelse
	unmark
lab L19
	line	191
	colm	10
	synt	if
	mark0
	var	9
	int	4
	line	191
	colm	18
	synt	any
	invoke	1
	unmark
	mark	L23
	pnull
	var	0
	line	193
	colm	24
	synt	any
	field	fold1
	var	2
	var	3
	line	193
	colm	30
	synt	any
	invoke	2
	line	193
	colm	13
	synt	any
	pret
lab L23
	synt	any
	pfail
	line	191
	colm	10
	synt	endif
lab L11
	unmark
	goto	L10
lab L12
	line	176
	colm	11
	synt	endrepeat
	line	176
	colm	9
	synt	any
	escan
	unmark
lab L9
	pnull
	line	196
	colm	1
	synt	any
	pfail
	end
proc mail__Message_fold1
	local	0,001000,self
	local	1,001000,res
	local	2,001000,l
	con	0,002000,1,0
	con	1,010000,2,015,012
	declend
	line	200
	colm	11
	synt	any
	mark	L1
	line	201
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	2
	line	201
	colm	10
	synt	any
	size
	int	0
	line	201
	colm	13
	synt	any
	numgt
	unmark
	mark	L2
	line	202
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	202
	colm	13
	synt	any
	size
	int	0
	line	202
	colm	18
	synt	any
	numgt
	unmark
	pnull
	var	1
	dup
	str	1
	line	203
	colm	17
	synt	any
	cat
	asgn
	line	202
	colm	10
	synt	endif
	unmark
lab L2
	pnull
	var	1
	dup
	var	2
	line	205
	colm	14
	synt	any
	cat
	asgn
	line	201
	colm	7
	synt	endif
	unmark
lab L1
	mark	L3
	mark	L4
	var	1
	line	207
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	208
	colm	1
	synt	any
	pfail
	end
proc mail__Message_show_headers
	local	0,001000,self
	local	1,000020,h
	local	2,000000,sort
	local	3,000000,write
	con	0,002000,1,1
	con	1,010000,2,072,040
	con	2,002000,1,2
	declend
	line	213
	colm	11
	synt	any
	mark	L1
	line	215
	colm	7
	synt	every
	mark0
	pnull
	var	1
	pnull
	var	2
	pnull
	var	0
	line	215
	colm	30
	synt	any
	field	headers
	line	215
	colm	25
	synt	any
	invoke	1
	line	215
	colm	18
	synt	any
	bang
	line	215
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	216
	colm	10
	synt	every
	mark0
	var	3
	pnull
	var	1
	int	0
	line	216
	colm	25
	synt	any
	subsc
	str	1
	pnull
	pnull
	var	1
	int	2
	line	216
	colm	38
	synt	any
	subsc
	line	216
	colm	36
	synt	any
	bang
	line	216
	colm	23
	synt	any
	invoke	3
	pop
lab L4
	efail
lab L5
	line	216
	colm	10
	synt	endevery
	unmark
lab L2
	efail
lab L3
	line	215
	colm	7
	synt	endevery
	unmark
lab L1
	pnull
	line	218
	colm	1
	synt	any
	pfail
	end
proc mail__Message_show_message
	local	0,001000,self
	local	1,000000,write
	declend
	line	223
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	224
	colm	11
	synt	any
	field	show_headers
	line	224
	colm	24
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	var	1
	line	225
	colm	14
	synt	any
	invoke	0
	unmark
lab L2
	mark	L3
	var	1
	pnull
	var	0
	line	226
	colm	19
	synt	any
	field	content
	line	226
	colm	14
	synt	any
	invoke	1
	unmark
lab L3
	pnull
	line	227
	colm	1
	synt	any
	pfail
	end
proc mail__Message_parse
	local	0,001000,self
	local	1,001000,data
	local	2,000020,s
	local	3,000000,tab
	local	4,000000,find
	local	5,000000,move
	local	6,000000,any
	local	7,000000,many
	con	0,010000,2,015,012
	con	1,002000,1,2
	con	2,020000,2,040,011
	con	3,010000,25,125,156,145,170,160,145,143,164,145,144,040,145,156,144,040,157,146,040,155,145,163,163,141,147,145
	con	4,002000,1,0
	declend
	line	232
	colm	11
	synt	any
	mark	L1
	var	1
	line	234
	colm	12
	synt	any
	bscan
	mark	L2
lab L3
	line	235
	colm	10
	synt	while
	mark0
	pnull
	var	2
	var	3
	var	4
	str	0
	line	235
	colm	33
	synt	any
	invoke	1
	line	235
	colm	26
	synt	any
	invoke	1
	line	235
	colm	18
	synt	any
	asgn
	unmark
	mark	L3
	mark	L6
	var	5
	int	1
	line	236
	colm	19
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
lab L8
	line	237
	colm	13
	synt	while
	mark0
	var	6
	cset	2
	line	237
	colm	24
	synt	any
	invoke	1
	unmark
	mark	L8
	mark	L11
	pnull
	var	2
	dup
	var	3
	var	7
	cset	2
	line	238
	colm	35
	synt	any
	invoke	1
	line	238
	colm	28
	synt	any
	invoke	1
	line	238
	colm	18
	synt	any
	cat
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	2
	dup
	mark	L13
	var	3
	var	4
	str	0
	line	239
	colm	35
	synt	any
	invoke	1
	line	239
	colm	28
	synt	any
	invoke	1
	line	239
	colm	45
	synt	any
	esusp
	goto	L14
lab L13
	mark	L15
	pnull
	var	0
	line	239
	colm	58
	synt	any
	field	error
	str	3
	line	239
	colm	64
	synt	any
	invoke	1
	line	239
	colm	47
	synt	any
	pret
lab L15
	synt	any
	pfail
lab L14
	line	239
	colm	18
	synt	any
	cat
	asgn
	unmark
lab L12
	var	5
	int	1
	line	240
	colm	22
	synt	any
	invoke	1
lab L9
	unmark
	goto	L8
lab L10
	line	237
	colm	13
	synt	endwhile
	unmark
lab L7
	mark	L16
	line	242
	colm	13
	synt	if
	mark0
	pnull
	pnull
	var	2
	line	242
	colm	16
	synt	any
	size
	int	4
	line	242
	colm	19
	synt	any
	numeq
	unmark
	mark	L17
	pnull
	pnull
	var	0
	line	243
	colm	20
	synt	any
	field	content
	var	3
	int	4
	line	243
	colm	33
	synt	any
	invoke	1
	line	243
	colm	28
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	line	244
	colm	16
	synt	any
	pret
lab L18
	synt	any
	pfail
	line	242
	colm	13
	synt	endif
	unmark
lab L16
	mark	L19
	pnull
	pnull
	var	0
	line	246
	colm	17
	synt	any
	field	parser
	line	246
	colm	24
	synt	any
	field	parse_field
	var	2
	var	0
	line	246
	colm	36
	synt	any
	invoke	2
	line	246
	colm	44
	synt	any
	esusp
	goto	L20
lab L19
	mark	L21
	pnull
	var	0
	line	246
	colm	56
	synt	any
	field	error
	pnull
	var	0
	line	246
	colm	67
	synt	any
	field	parser
	line	246
	colm	62
	synt	any
	invoke	1
	line	246
	colm	45
	synt	any
	pret
lab L21
	synt	any
	pfail
lab L20
lab L4
	unmark
	goto	L3
lab L5
	line	235
	colm	10
	synt	endwhile
	unmark
lab L2
	mark	L22
	pnull
	var	0
	line	248
	colm	21
	synt	any
	field	error
	str	3
	line	248
	colm	27
	synt	any
	invoke	1
	line	248
	colm	10
	synt	any
	pret
lab L22
	synt	any
	pfail
	line	234
	colm	12
	synt	any
	escan
	unmark
lab L1
	pnull
	line	250
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_first_header
	local	0,001000,self
	local	1,001000,key
	con	0,002000,1,1
	declend
	line	255
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	256
	colm	18
	synt	any
	field	get_headers
	var	1
	line	256
	colm	30
	synt	any
	invoke	1
	int	0
	line	256
	colm	35
	synt	any
	subsc
	line	256
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	257
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_headers
	local	0,001000,self
	local	1,001000,key
	con	0,010000,16,116,157,040,163,165,143,150,040,150,145,141,144,145,162,072,040
	declend
	line	265
	colm	11
	synt	any
	mark	L1
	mark	L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	266
	colm	19
	synt	any
	field	headers
	line	266
	colm	27
	synt	any
	field	get
	var	1
	line	266
	colm	31
	synt	any
	invoke	1
	line	266
	colm	14
	synt	any
	nonnull
	line	266
	colm	36
	synt	any
	esusp
	goto	L4
lab L3
	pnull
	var	0
	line	266
	colm	41
	synt	any
	field	error
	pnull
	str	0
	var	1
	line	266
	colm	66
	synt	any
	cat
	line	266
	colm	47
	synt	any
	invoke	1
lab L4
	line	266
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	267
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_catenated_headers
	local	0,001000,self
	local	1,001000,key
	local	2,001000,delim
	local	3,000020,s
	local	4,000020,l
	local	5,000020,e
	con	0,010000,1,054
	con	1,010000,0
	con	2,002000,1,0
	declend
	line	274
	colm	11
	synt	any
	mark	L1
	pnull
	var	4
	mark	L2
	pnull
	var	0
	line	277
	colm	16
	synt	any
	field	get_headers
	var	1
	line	277
	colm	28
	synt	any
	invoke	1
	line	277
	colm	33
	synt	any
	esusp
	goto	L3
lab L2
	line	277
	colm	34
	synt	any
	pfail
lab L3
	line	277
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	pnull
	pnull
	var	2
	line	279
	colm	7
	synt	any
	null
	str	0
	line	279
	colm	14
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	3
	str	1
	line	281
	colm	9
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	line	282
	colm	7
	synt	every
	mark0
	pnull
	var	5
	pnull
	var	4
	line	282
	colm	18
	synt	any
	bang
	line	282
	colm	15
	synt	any
	asgn
	pop
	mark0
	mark	L9
	line	283
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	283
	colm	13
	synt	any
	size
	int	2
	line	283
	colm	16
	synt	any
	numgt
	unmark
	pnull
	var	3
	dup
	var	2
	line	284
	colm	15
	synt	any
	cat
	asgn
	line	283
	colm	10
	synt	endif
	unmark
lab L9
	pnull
	var	3
	dup
	var	5
	line	285
	colm	12
	synt	any
	cat
	asgn
	unmark
lab L7
	efail
lab L8
	line	282
	colm	7
	synt	endevery
	unmark
lab L6
	mark	L10
	mark	L11
	var	3
	line	288
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	289
	colm	1
	synt	any
	pfail
	end
proc mail__Message_catenate_addresses
	local	0,001000,self
	local	1,001000,a
	local	2,001000,delim
	local	3,000020,s
	local	4,000020,e
	local	5,000000,type
	con	0,010000,4,154,151,163,164
	con	1,010000,0
	con	2,002000,1,0
	declend
	line	295
	colm	11
	synt	any
	mark	L1
	line	297
	colm	7
	synt	ifelse
	mark	L2
	pnull
	var	5
	var	1
	line	297
	colm	16
	synt	any
	invoke	1
	str	0
	line	297
	colm	20
	synt	any
	lexeq
	unmark
	mark	L4
	pnull
	var	3
	str	1
	line	298
	colm	12
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	299
	colm	10
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	1
	line	299
	colm	21
	synt	any
	bang
	line	299
	colm	18
	synt	any
	asgn
	pop
	mark0
	mark	L8
	line	300
	colm	13
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	300
	colm	16
	synt	any
	size
	int	2
	line	300
	colm	19
	synt	any
	numgt
	unmark
	pnull
	var	3
	dup
	var	2
	line	301
	colm	18
	synt	any
	cat
	asgn
	line	300
	colm	13
	synt	endif
	unmark
lab L8
	pnull
	var	3
	dup
	var	4
	line	302
	colm	15
	synt	any
	cat
	asgn
	unmark
lab L6
	efail
lab L7
	line	299
	colm	10
	synt	endevery
	unmark
lab L5
	mark	L9
	var	3
	line	304
	colm	10
	synt	any
	pret
lab L9
	synt	any
	pfail
	goto	L3
lab L2
	mark	L10
	pnull
	var	1
	line	307
	colm	18
	synt	any
	field	to_rfc822
	line	307
	colm	28
	synt	any
	invoke	0
	line	307
	colm	10
	synt	any
	pret
lab L10
	synt	any
	pfail
lab L3
	line	297
	colm	7
	synt	endifelse
	unmark
lab L1
	pnull
	line	309
	colm	1
	synt	any
	pfail
	end
proc mail__Message_add_header
	local	0,001000,self
	local	1,001000,key
	local	2,001000,val
	local	3,000000,put
	declend
	line	314
	colm	11
	synt	any
	mark	L1
	line	315
	colm	7
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	0
	line	315
	colm	14
	synt	any
	field	headers
	line	315
	colm	22
	synt	any
	field	member
	var	1
	line	315
	colm	29
	synt	any
	invoke	1
	unmark
	var	3
	pnull
	pnull
	var	0
	line	316
	colm	20
	synt	any
	field	headers
	line	316
	colm	28
	synt	any
	field	get
	var	1
	line	316
	colm	32
	synt	any
	invoke	1
	var	2
	line	316
	colm	15
	synt	any
	invoke	2
	goto	L3
lab L2
	pnull
	pnull
	var	0
	line	318
	colm	14
	synt	any
	field	headers
	line	318
	colm	22
	synt	any
	field	insert
	var	1
	pnull
	var	2
	line	318
	colm	34
	synt	any
	llist	1
	line	318
	colm	29
	synt	any
	invoke	2
lab L3
	line	315
	colm	7
	synt	endifelse
	unmark
lab L1
	pnull
	line	319
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_header
	local	0,001000,self
	local	1,001000,key
	local	2,001000,val
	declend
	line	325
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	326
	colm	11
	synt	any
	field	headers
	line	326
	colm	19
	synt	any
	field	insert
	var	1
	pnull
	var	2
	line	326
	colm	31
	synt	any
	llist	1
	line	326
	colm	26
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	327
	colm	1
	synt	any
	pfail
	end
proc mail__Message_unset_header
	local	0,001000,self
	local	1,001000,key
	declend
	line	332
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	333
	colm	11
	synt	any
	field	headers
	line	333
	colm	19
	synt	any
	field	delete
	var	1
	line	333
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	334
	colm	1
	synt	any
	pfail
	end
proc mail__Message_has_header
	local	0,001000,self
	local	1,001000,key
	declend
	line	339
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	340
	colm	18
	synt	any
	field	headers
	line	340
	colm	26
	synt	any
	field	member
	var	1
	line	340
	colm	33
	synt	any
	invoke	1
	line	340
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	341
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_date
	local	0,001000,self
	local	1,000020,s
	con	0,010000,4,104,141,164,145
	declend
	line	348
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	350
	colm	16
	synt	any
	field	get_first_header
	str	0
	line	350
	colm	33
	synt	any
	invoke	1
	line	350
	colm	41
	synt	any
	esusp
	goto	L3
lab L2
	line	350
	colm	42
	synt	any
	pfail
lab L3
	line	350
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	351
	colm	18
	synt	any
	field	parser
	line	351
	colm	25
	synt	any
	field	parse_date_time
	var	1
	line	351
	colm	41
	synt	any
	invoke	1
	line	351
	colm	44
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	351
	colm	49
	synt	any
	field	error
	pnull
	var	0
	line	351
	colm	60
	synt	any
	field	parser
	line	351
	colm	55
	synt	any
	invoke	1
lab L7
	line	351
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	352
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_date
	local	0,001000,self
	local	1,001000,t
	con	0,010000,4,104,141,164,145
	declend
	line	358
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	359
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	1
	line	359
	colm	31
	synt	any
	field	to_rfc822
	line	359
	colm	41
	synt	any
	invoke	0
	line	359
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	360
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_to
	local	0,001000,self
	local	1,000020,s
	con	0,010000,2,124,157
	declend
	line	368
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	370
	colm	16
	synt	any
	field	get_catenated_headers
	str	0
	line	370
	colm	38
	synt	any
	invoke	1
	line	370
	colm	44
	synt	any
	esusp
	goto	L3
lab L2
	line	370
	colm	45
	synt	any
	pfail
lab L3
	line	370
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	371
	colm	18
	synt	any
	field	parser
	line	371
	colm	25
	synt	any
	field	parse_address_list
	var	1
	line	371
	colm	44
	synt	any
	invoke	1
	line	371
	colm	47
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	371
	colm	52
	synt	any
	field	error
	pnull
	var	0
	line	371
	colm	63
	synt	any
	field	parser
	line	371
	colm	58
	synt	any
	invoke	1
lab L7
	line	371
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	372
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_to
	local	0,001000,self
	local	1,001000,a
	con	0,010000,2,124,157
	declend
	line	380
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	381
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	0
	line	381
	colm	32
	synt	any
	field	catenate_addresses
	var	1
	line	381
	colm	51
	synt	any
	invoke	1
	line	381
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	382
	colm	1
	synt	any
	pfail
	end
proc mail__Message_add_to
	local	0,001000,self
	local	1,001000,a
	con	0,010000,2,124,157
	declend
	line	389
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	390
	colm	11
	synt	any
	field	add_header
	str	0
	pnull
	var	0
	line	390
	colm	32
	synt	any
	field	catenate_addresses
	var	1
	line	390
	colm	51
	synt	any
	invoke	1
	line	390
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	391
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_reply_to
	local	0,001000,self
	local	1,000020,s
	con	0,010000,8,122,145,160,154,171,055,124,157
	con	1,002000,1,1
	declend
	line	399
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	401
	colm	16
	synt	any
	field	get_catenated_headers
	str	0
	line	401
	colm	38
	synt	any
	invoke	1
	line	401
	colm	50
	synt	any
	esusp
	goto	L3
lab L2
	line	401
	colm	51
	synt	any
	pfail
lab L3
	line	401
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	402
	colm	18
	synt	any
	field	parser
	line	402
	colm	25
	synt	any
	field	parse_address_list
	var	1
	int	1
	line	402
	colm	44
	synt	any
	invoke	2
	line	402
	colm	49
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	402
	colm	54
	synt	any
	field	error
	pnull
	var	0
	line	402
	colm	65
	synt	any
	field	parser
	line	402
	colm	60
	synt	any
	invoke	1
lab L7
	line	402
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	403
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_reply_to
	local	0,001000,self
	local	1,001000,a
	con	0,010000,8,122,145,160,154,171,055,124,157
	declend
	line	411
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	412
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	0
	line	412
	colm	38
	synt	any
	field	catenate_addresses
	var	1
	line	412
	colm	57
	synt	any
	invoke	1
	line	412
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	413
	colm	1
	synt	any
	pfail
	end
proc mail__Message_add_reply_to
	local	0,001000,self
	local	1,001000,a
	con	0,010000,8,122,145,160,154,171,055,124,157
	declend
	line	420
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	421
	colm	11
	synt	any
	field	add_header
	str	0
	pnull
	var	0
	line	421
	colm	38
	synt	any
	field	catenate_addresses
	var	1
	line	421
	colm	57
	synt	any
	invoke	1
	line	421
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	422
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_resent_to
	local	0,001000,self
	local	1,000020,s
	con	0,010000,9,122,145,163,145,156,164,055,124,157
	declend
	line	430
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	432
	colm	16
	synt	any
	field	get_catenated_headers
	str	0
	line	432
	colm	38
	synt	any
	invoke	1
	line	432
	colm	51
	synt	any
	esusp
	goto	L3
lab L2
	line	432
	colm	52
	synt	any
	pfail
lab L3
	line	432
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	433
	colm	18
	synt	any
	field	parser
	line	433
	colm	25
	synt	any
	field	parse_address_list
	var	1
	line	433
	colm	44
	synt	any
	invoke	1
	line	433
	colm	47
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	433
	colm	52
	synt	any
	field	error
	pnull
	var	0
	line	433
	colm	63
	synt	any
	field	parser
	line	433
	colm	58
	synt	any
	invoke	1
lab L7
	line	433
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	434
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_resent_to
	local	0,001000,self
	local	1,001000,a
	con	0,010000,9,122,145,163,145,156,164,055,124,157
	declend
	line	442
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	443
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	0
	line	443
	colm	39
	synt	any
	field	catenate_addresses
	var	1
	line	443
	colm	58
	synt	any
	invoke	1
	line	443
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	444
	colm	1
	synt	any
	pfail
	end
proc mail__Message_add_resent_to
	local	0,001000,self
	local	1,001000,a
	con	0,010000,9,122,145,163,145,156,164,055,124,157
	declend
	line	451
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	452
	colm	11
	synt	any
	field	add_header
	str	0
	pnull
	var	0
	line	452
	colm	39
	synt	any
	field	catenate_addresses
	var	1
	line	452
	colm	58
	synt	any
	invoke	1
	line	452
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	453
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_cc
	local	0,001000,self
	local	1,000020,s
	con	0,010000,2,143,143
	declend
	line	461
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	463
	colm	16
	synt	any
	field	get_catenated_headers
	str	0
	line	463
	colm	38
	synt	any
	invoke	1
	line	463
	colm	44
	synt	any
	esusp
	goto	L3
lab L2
	line	463
	colm	45
	synt	any
	pfail
lab L3
	line	463
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	464
	colm	18
	synt	any
	field	parser
	line	464
	colm	25
	synt	any
	field	parse_address_list
	var	1
	line	464
	colm	44
	synt	any
	invoke	1
	line	464
	colm	47
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	464
	colm	52
	synt	any
	field	error
	pnull
	var	0
	line	464
	colm	63
	synt	any
	field	parser
	line	464
	colm	58
	synt	any
	invoke	1
lab L7
	line	464
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	465
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_cc
	local	0,001000,self
	local	1,001000,a
	con	0,010000,2,143,143
	declend
	line	473
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	474
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	0
	line	474
	colm	32
	synt	any
	field	catenate_addresses
	var	1
	line	474
	colm	51
	synt	any
	invoke	1
	line	474
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	475
	colm	1
	synt	any
	pfail
	end
proc mail__Message_add_cc
	local	0,001000,self
	local	1,001000,a
	con	0,010000,2,143,143
	declend
	line	482
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	483
	colm	11
	synt	any
	field	add_header
	str	0
	pnull
	var	0
	line	483
	colm	32
	synt	any
	field	catenate_addresses
	var	1
	line	483
	colm	51
	synt	any
	invoke	1
	line	483
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	484
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_resent_cc
	local	0,001000,self
	local	1,000020,s
	con	0,010000,9,122,145,163,145,156,164,055,143,143
	declend
	line	492
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	494
	colm	16
	synt	any
	field	get_catenated_headers
	str	0
	line	494
	colm	38
	synt	any
	invoke	1
	line	494
	colm	51
	synt	any
	esusp
	goto	L3
lab L2
	line	494
	colm	52
	synt	any
	pfail
lab L3
	line	494
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	495
	colm	18
	synt	any
	field	parser
	line	495
	colm	25
	synt	any
	field	parse_address_list
	var	1
	line	495
	colm	44
	synt	any
	invoke	1
	line	495
	colm	47
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	495
	colm	52
	synt	any
	field	error
	pnull
	var	0
	line	495
	colm	63
	synt	any
	field	parser
	line	495
	colm	58
	synt	any
	invoke	1
lab L7
	line	495
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	496
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_resent_cc
	local	0,001000,self
	local	1,001000,a
	con	0,010000,9,122,145,163,145,156,164,055,143,143
	declend
	line	504
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	505
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	0
	line	505
	colm	39
	synt	any
	field	catenate_addresses
	var	1
	line	505
	colm	58
	synt	any
	invoke	1
	line	505
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	506
	colm	1
	synt	any
	pfail
	end
proc mail__Message_add_resent_cc
	local	0,001000,self
	local	1,001000,a
	con	0,010000,9,122,145,163,145,156,164,055,143,143
	declend
	line	513
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	514
	colm	11
	synt	any
	field	add_header
	str	0
	pnull
	var	0
	line	514
	colm	39
	synt	any
	field	catenate_addresses
	var	1
	line	514
	colm	58
	synt	any
	invoke	1
	line	514
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	515
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_bcc
	local	0,001000,self
	local	1,000020,s
	con	0,010000,3,142,143,143
	con	1,002000,1,1
	declend
	line	523
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	525
	colm	16
	synt	any
	field	get_catenated_headers
	str	0
	line	525
	colm	38
	synt	any
	invoke	1
	line	525
	colm	45
	synt	any
	esusp
	goto	L3
lab L2
	line	525
	colm	46
	synt	any
	pfail
lab L3
	line	525
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	526
	colm	18
	synt	any
	field	parser
	line	526
	colm	25
	synt	any
	field	parse_address_list
	var	1
	int	1
	line	526
	colm	44
	synt	any
	invoke	2
	line	526
	colm	49
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	526
	colm	54
	synt	any
	field	error
	pnull
	var	0
	line	526
	colm	65
	synt	any
	field	parser
	line	526
	colm	60
	synt	any
	invoke	1
lab L7
	line	526
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	527
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_bcc
	local	0,001000,self
	local	1,001000,a
	con	0,010000,3,142,143,143
	declend
	line	535
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	536
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	0
	line	536
	colm	33
	synt	any
	field	catenate_addresses
	var	1
	line	536
	colm	52
	synt	any
	invoke	1
	line	536
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	537
	colm	1
	synt	any
	pfail
	end
proc mail__Message_add_bcc
	local	0,001000,self
	local	1,001000,a
	con	0,010000,3,142,143,143
	declend
	line	544
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	545
	colm	11
	synt	any
	field	add_header
	str	0
	pnull
	var	0
	line	545
	colm	33
	synt	any
	field	catenate_addresses
	var	1
	line	545
	colm	52
	synt	any
	invoke	1
	line	545
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	546
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_resent_bcc
	local	0,001000,self
	local	1,000020,s
	con	0,010000,10,122,145,163,145,156,164,055,142,143,143
	con	1,002000,1,1
	declend
	line	554
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	556
	colm	16
	synt	any
	field	get_catenated_headers
	str	0
	line	556
	colm	38
	synt	any
	invoke	1
	line	556
	colm	52
	synt	any
	esusp
	goto	L3
lab L2
	line	556
	colm	53
	synt	any
	pfail
lab L3
	line	556
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	557
	colm	18
	synt	any
	field	parser
	line	557
	colm	25
	synt	any
	field	parse_address_list
	var	1
	int	1
	line	557
	colm	44
	synt	any
	invoke	2
	line	557
	colm	49
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	557
	colm	54
	synt	any
	field	error
	pnull
	var	0
	line	557
	colm	65
	synt	any
	field	parser
	line	557
	colm	60
	synt	any
	invoke	1
lab L7
	line	557
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	558
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_resent_bcc
	local	0,001000,self
	local	1,001000,a
	con	0,010000,10,122,145,163,145,156,164,055,142,143,143
	declend
	line	566
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	567
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	0
	line	567
	colm	40
	synt	any
	field	catenate_addresses
	var	1
	line	567
	colm	59
	synt	any
	invoke	1
	line	567
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	568
	colm	1
	synt	any
	pfail
	end
proc mail__Message_add_resent_bcc
	local	0,001000,self
	local	1,001000,a
	con	0,010000,10,122,145,163,145,156,164,055,142,143,143
	declend
	line	575
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	576
	colm	11
	synt	any
	field	add_header
	str	0
	pnull
	var	0
	line	576
	colm	40
	synt	any
	field	catenate_addresses
	var	1
	line	576
	colm	59
	synt	any
	invoke	1
	line	576
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	577
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_from
	local	0,001000,self
	local	1,000020,s
	con	0,010000,4,106,162,157,155
	declend
	line	585
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	587
	colm	16
	synt	any
	field	get_catenated_headers
	str	0
	line	587
	colm	38
	synt	any
	invoke	1
	line	587
	colm	46
	synt	any
	esusp
	goto	L3
lab L2
	line	587
	colm	47
	synt	any
	pfail
lab L3
	line	587
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	588
	colm	18
	synt	any
	field	parser
	line	588
	colm	25
	synt	any
	field	parse_mailbox_list
	var	1
	line	588
	colm	44
	synt	any
	invoke	1
	line	588
	colm	47
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	588
	colm	52
	synt	any
	field	error
	pnull
	var	0
	line	588
	colm	63
	synt	any
	field	parser
	line	588
	colm	58
	synt	any
	invoke	1
lab L7
	line	588
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	589
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_from
	local	0,001000,self
	local	1,001000,m
	con	0,010000,4,106,162,157,155
	declend
	line	597
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	598
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	0
	line	598
	colm	34
	synt	any
	field	catenate_addresses
	var	1
	line	598
	colm	53
	synt	any
	invoke	1
	line	598
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	599
	colm	1
	synt	any
	pfail
	end
proc mail__Message_add_from
	local	0,001000,self
	local	1,001000,m
	con	0,010000,4,106,162,157,155
	declend
	line	606
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	607
	colm	11
	synt	any
	field	add_header
	str	0
	pnull
	var	0
	line	607
	colm	34
	synt	any
	field	catenate_addresses
	var	1
	line	607
	colm	53
	synt	any
	invoke	1
	line	607
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	608
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_sender
	local	0,001000,self
	local	1,000020,s
	con	0,010000,6,123,145,156,144,145,162
	declend
	line	616
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	618
	colm	16
	synt	any
	field	get_first_header
	str	0
	line	618
	colm	33
	synt	any
	invoke	1
	line	618
	colm	43
	synt	any
	esusp
	goto	L3
lab L2
	line	618
	colm	44
	synt	any
	pfail
lab L3
	line	618
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	619
	colm	18
	synt	any
	field	parser
	line	619
	colm	25
	synt	any
	field	parse_mailbox
	var	1
	line	619
	colm	39
	synt	any
	invoke	1
	line	619
	colm	42
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	619
	colm	47
	synt	any
	field	error
	pnull
	var	0
	line	619
	colm	58
	synt	any
	field	parser
	line	619
	colm	53
	synt	any
	invoke	1
lab L7
	line	619
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	620
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_sender
	local	0,001000,self
	local	1,001000,m
	con	0,010000,6,123,145,156,144,145,162
	declend
	line	626
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	627
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	1
	line	627
	colm	33
	synt	any
	field	to_rfc822
	line	627
	colm	43
	synt	any
	invoke	0
	line	627
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	628
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_resent_from
	local	0,001000,self
	local	1,000020,s
	con	0,010000,11,122,145,163,145,156,164,055,106,162,157,155
	declend
	line	635
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	637
	colm	16
	synt	any
	field	get_catenated_headers
	str	0
	line	637
	colm	38
	synt	any
	invoke	1
	line	637
	colm	53
	synt	any
	esusp
	goto	L3
lab L2
	line	637
	colm	54
	synt	any
	pfail
lab L3
	line	637
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	638
	colm	18
	synt	any
	field	parser
	line	638
	colm	25
	synt	any
	field	parse_mailbox_list
	var	1
	line	638
	colm	44
	synt	any
	invoke	1
	line	638
	colm	47
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	638
	colm	52
	synt	any
	field	error
	pnull
	var	0
	line	638
	colm	63
	synt	any
	field	parser
	line	638
	colm	58
	synt	any
	invoke	1
lab L7
	line	638
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	639
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_resent_from
	local	0,001000,self
	local	1,001000,m
	con	0,010000,11,122,145,163,145,156,164,055,106,162,157,155
	declend
	line	647
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	648
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	0
	line	648
	colm	41
	synt	any
	field	catenate_addresses
	var	1
	line	648
	colm	60
	synt	any
	invoke	1
	line	648
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	649
	colm	1
	synt	any
	pfail
	end
proc mail__Message_add_resent_from
	local	0,001000,self
	local	1,001000,m
	con	0,010000,11,122,145,163,145,156,164,055,106,162,157,155
	declend
	line	656
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	657
	colm	11
	synt	any
	field	add_header
	str	0
	pnull
	var	0
	line	657
	colm	41
	synt	any
	field	catenate_addresses
	var	1
	line	657
	colm	60
	synt	any
	invoke	1
	line	657
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	658
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_resent_sender
	local	0,001000,self
	local	1,000020,s
	con	0,010000,13,122,145,163,145,156,164,055,123,145,156,144,145,162
	declend
	line	666
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	668
	colm	16
	synt	any
	field	get_first_header
	str	0
	line	668
	colm	33
	synt	any
	invoke	1
	line	668
	colm	50
	synt	any
	esusp
	goto	L3
lab L2
	line	668
	colm	51
	synt	any
	pfail
lab L3
	line	668
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	669
	colm	18
	synt	any
	field	parser
	line	669
	colm	25
	synt	any
	field	parse_mailbox
	var	1
	line	669
	colm	39
	synt	any
	invoke	1
	line	669
	colm	42
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	669
	colm	47
	synt	any
	field	error
	pnull
	var	0
	line	669
	colm	58
	synt	any
	field	parser
	line	669
	colm	53
	synt	any
	invoke	1
lab L7
	line	669
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	670
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_resent_sender
	local	0,001000,self
	local	1,001000,m
	con	0,010000,13,122,145,163,145,156,164,055,123,145,156,144,145,162
	declend
	line	676
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	677
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	1
	line	677
	colm	40
	synt	any
	field	to_rfc822
	line	677
	colm	50
	synt	any
	invoke	0
	line	677
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	678
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_resent_date
	local	0,001000,self
	local	1,000020,s
	con	0,010000,11,122,145,163,145,156,164,055,104,141,164,145
	declend
	line	684
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	686
	colm	16
	synt	any
	field	get_first_header
	str	0
	line	686
	colm	33
	synt	any
	invoke	1
	line	686
	colm	48
	synt	any
	esusp
	goto	L3
lab L2
	line	686
	colm	49
	synt	any
	pfail
lab L3
	line	686
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	687
	colm	18
	synt	any
	field	parser
	line	687
	colm	25
	synt	any
	field	parse_date_time
	var	1
	line	687
	colm	41
	synt	any
	invoke	1
	line	687
	colm	44
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	687
	colm	49
	synt	any
	field	error
	pnull
	var	0
	line	687
	colm	60
	synt	any
	field	parser
	line	687
	colm	55
	synt	any
	invoke	1
lab L7
	line	687
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	688
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_resent_date
	local	0,001000,self
	local	1,001000,t
	con	0,010000,11,122,145,163,145,156,164,055,104,141,164,145
	declend
	line	694
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	695
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	1
	line	695
	colm	38
	synt	any
	field	to_rfc822
	line	695
	colm	48
	synt	any
	invoke	0
	line	695
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	696
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_content_type
	local	0,001000,self
	local	1,000020,s
	con	0,010000,12,103,157,156,164,145,156,164,055,124,171,160,145
	declend
	line	703
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	705
	colm	16
	synt	any
	field	get_first_header
	str	0
	line	705
	colm	33
	synt	any
	invoke	1
	line	705
	colm	49
	synt	any
	esusp
	goto	L3
lab L2
	line	705
	colm	50
	synt	any
	pfail
lab L3
	line	705
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	706
	colm	18
	synt	any
	field	parser
	line	706
	colm	25
	synt	any
	field	parse_content_type
	var	1
	line	706
	colm	44
	synt	any
	invoke	1
	line	706
	colm	47
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	706
	colm	52
	synt	any
	field	error
	pnull
	var	0
	line	706
	colm	63
	synt	any
	field	parser
	line	706
	colm	58
	synt	any
	invoke	1
lab L7
	line	706
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	707
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_content_type
	local	0,001000,self
	local	1,001000,ct
	con	0,010000,12,103,157,156,164,145,156,164,055,124,171,160,145
	declend
	line	713
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	714
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	1
	line	714
	colm	40
	synt	any
	field	to_rfc1521
	line	714
	colm	51
	synt	any
	invoke	0
	line	714
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	715
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_content_disposition
	local	0,001000,self
	local	1,000020,s
	con	0,010000,19,103,157,156,164,145,156,164,055,104,151,163,160,157,163,151,164,151,157,156
	declend
	line	722
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	724
	colm	16
	synt	any
	field	get_first_header
	str	0
	line	724
	colm	33
	synt	any
	invoke	1
	line	724
	colm	56
	synt	any
	esusp
	goto	L3
lab L2
	line	724
	colm	57
	synt	any
	pfail
lab L3
	line	724
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	725
	colm	18
	synt	any
	field	parser
	line	725
	colm	25
	synt	any
	field	parse_content_disposition
	var	1
	line	725
	colm	51
	synt	any
	invoke	1
	line	725
	colm	54
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	725
	colm	59
	synt	any
	field	error
	pnull
	var	0
	line	725
	colm	70
	synt	any
	field	parser
	line	725
	colm	65
	synt	any
	invoke	1
lab L7
	line	725
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	726
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_content_disposition
	local	0,001000,self
	local	1,001000,cd
	con	0,010000,19,103,157,156,164,145,156,164,055,104,151,163,160,157,163,151,164,151,157,156
	declend
	line	732
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	733
	colm	11
	synt	any
	field	set_header
	str	0
	pnull
	var	1
	line	733
	colm	47
	synt	any
	field	to_rfc1521
	line	733
	colm	58
	synt	any
	invoke	0
	line	733
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	734
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_content_transfer_encoding
	local	0,001000,self
	local	1,000020,s
	con	0,010000,25,103,157,156,164,145,156,164,055,124,162,141,156,163,146,145,162,055,105,156,143,157,144,151,156,147
	declend
	line	741
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	743
	colm	16
	synt	any
	field	get_first_header
	str	0
	line	743
	colm	33
	synt	any
	invoke	1
	line	743
	colm	62
	synt	any
	esusp
	goto	L3
lab L2
	line	743
	colm	63
	synt	any
	pfail
lab L3
	line	743
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	0
	line	744
	colm	18
	synt	any
	field	parser
	line	744
	colm	25
	synt	any
	field	parse_content_transfer_encoding
	var	1
	line	744
	colm	57
	synt	any
	invoke	1
	line	744
	colm	60
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	744
	colm	65
	synt	any
	field	error
	pnull
	var	0
	line	744
	colm	76
	synt	any
	field	parser
	line	744
	colm	71
	synt	any
	invoke	1
lab L7
	line	744
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	745
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_content_transfer_encoding
	local	0,001000,self
	local	1,001000,s
	con	0,010000,25,103,157,156,164,145,156,164,055,124,162,141,156,163,146,145,162,055,105,156,143,157,144,151,156,147
	declend
	line	750
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	751
	colm	11
	synt	any
	field	set_header
	str	0
	var	1
	line	751
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	752
	colm	1
	synt	any
	pfail
	end
proc mail__Message_set_subject
	local	0,001000,self
	local	1,001000,s
	con	0,010000,7,123,165,142,152,145,143,164
	declend
	line	758
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	759
	colm	11
	synt	any
	field	set_header
	str	0
	var	1
	line	759
	colm	22
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	760
	colm	1
	synt	any
	pfail
	end
proc mail__Message_get_subject
	local	0,001000,self
	con	0,010000,7,123,165,142,152,145,143,164
	declend
	line	765
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	766
	colm	18
	synt	any
	field	get_first_header
	str	0
	line	766
	colm	35
	synt	any
	invoke	1
	line	766
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	767
	colm	1
	synt	any
	pfail
	end
proc mail__Message_initially
	local	0,001000,self
	local	1,001000,a
	local	2,000000,util__ClTable
	local	3,000000,mail__RFC822Parser
	con	0,010000,0
	declend
	line	769
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	770
	colm	11
	synt	any
	field	headers
	var	2
	line	770
	colm	34
	synt	any
	invoke	0
	line	770
	colm	19
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	771
	colm	11
	synt	any
	field	content
	str	0
	line	771
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	772
	colm	11
	synt	any
	field	parser
	var	3
	line	772
	colm	38
	synt	any
	invoke	0
	line	772
	colm	18
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	773
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	774
	colm	1
	synt	any
	pfail
	end
proc mail__Message
	local	0,001000,a
	local	1,000020,self
	local	2,000020,clone
	local	3,000000,mail__Message__oprec
	local	4,000000,mail__Messageinitialize
	local	5,000000,util__Error__oprec
	local	6,000000,util__Errorinitialize
	local	7,000000,mail__Message__state
	local	8,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	56
	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	52
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	pnull
	pnull
	var	3
	line	10
	colm	23
	synt	any
	field	util__Error
	var	5
	line	10
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L6
	pnull
	var	1
	var	7
	line	12
	colm	32
	synt	any
	keywd	null
	var	3
	line	12
	colm	31
	synt	any
	invoke	2
	line	12
	colm	8
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	1
	line	13
	colm	7
	synt	any
	field	__s
	var	1
	line	13
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	mark	L9
	pnull
	pnull
	var	1
	line	14
	colm	7
	synt	any
	field	__m
	line	14
	colm	11
	synt	any
	field	initially
	var	8
	var	0
	var	1
	line	14
	colm	27
	synt	any
	invoke	2
	invoke	-1
	line	14
	colm	37
	synt	any
	esusp
	goto	L10
lab L9
	line	14
	colm	39
	synt	any
	pfail
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	var	1
	line	15
	colm	3
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	16
	colm	1
	synt	any
	pfail
	end
proc mail__Messageinitialize
	local	0,000000,mail__Message__oprec
	local	1,000000,mail__Message__methods
	local	2,000000,mail__Message_set_content
	local	3,000000,mail__Message_get_content
	local	4,000000,mail__Message_get_decoded_content
	local	5,000000,mail__Message_set_decoded_content
	local	6,000000,mail__Message_get_content_object
	local	7,000000,mail__Message_set_content_object
	local	8,000000,mail__Message_get_actual_content_transfer_encoding
	local	9,000000,mail__Message_get_actual_content_type
	local	10,000000,mail__Message_get_encoding_handler
	local	11,000000,mail__Message_get_type_handler
	local	12,000000,mail__Message_to_rfc822
	local	13,000000,mail__Message_fold
	local	14,000000,mail__Message_fold1
	local	15,000000,mail__Message_show_headers
	local	16,000000,mail__Message_show_message
	local	17,000000,mail__Message_parse
	local	18,000000,mail__Message_get_first_header
	local	19,000000,mail__Message_get_headers
	local	20,000000,mail__Message_get_catenated_headers
	local	21,000000,mail__Message_catenate_addresses
	local	22,000000,mail__Message_add_header
	local	23,000000,mail__Message_set_header
	local	24,000000,mail__Message_unset_header
	local	25,000000,mail__Message_has_header
	local	26,000000,mail__Message_get_date
	local	27,000000,mail__Message_set_date
	local	28,000000,mail__Message_get_to
	local	29,000000,mail__Message_set_to
	local	30,000000,mail__Message_add_to
	local	31,000000,mail__Message_get_reply_to
	local	32,000000,mail__Message_set_reply_to
	local	33,000000,mail__Message_add_reply_to
	local	34,000000,mail__Message_get_resent_to
	local	35,000000,mail__Message_set_resent_to
	local	36,000000,mail__Message_add_resent_to
	local	37,000000,mail__Message_get_cc
	local	38,000000,mail__Message_set_cc
	local	39,000000,mail__Message_add_cc
	local	40,000000,mail__Message_get_resent_cc
	local	41,000000,mail__Message_set_resent_cc
	local	42,000000,mail__Message_add_resent_cc
	local	43,000000,mail__Message_get_bcc
	local	44,000000,mail__Message_set_bcc
	local	45,000000,mail__Message_add_bcc
	local	46,000000,mail__Message_get_resent_bcc
	local	47,000000,mail__Message_set_resent_bcc
	local	48,000000,mail__Message_add_resent_bcc
	local	49,000000,mail__Message_get_from
	local	50,000000,mail__Message_set_from
	local	51,000000,mail__Message_add_from
	local	52,000000,mail__Message_get_sender
	local	53,000000,mail__Message_set_sender
	local	54,000000,mail__Message_get_resent_from
	local	55,000000,mail__Message_set_resent_from
	local	56,000000,mail__Message_add_resent_from
	local	57,000000,mail__Message_get_resent_sender
	local	58,000000,mail__Message_set_resent_sender
	local	59,000000,mail__Message_get_resent_date
	local	60,000000,mail__Message_set_resent_date
	local	61,000000,mail__Message_get_content_type
	local	62,000000,mail__Message_set_content_type
	local	63,000000,mail__Message_get_content_disposition
	local	64,000000,mail__Message_set_content_disposition
	local	65,000000,mail__Message_get_content_transfer_encoding
	local	66,000000,mail__Message_set_content_transfer_encoding
	local	67,000000,mail__Message_set_subject
	local	68,000000,mail__Message_get_subject
	local	69,000000,mail__Message_initially
	local	70,000000,util__Error_error
	local	71,000000,util__Error_get_reason
	declend
	line	18
	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
	var	48
	var	49
	var	50
	var	51
	var	52
	var	53
	var	54
	var	55
	var	56
	var	57
	var	58
	var	59
	var	60
	var	61
	var	62
	var	63
	var	64
	var	65
	var	66
	var	67
	var	68
	var	69
	var	70
	var	71
	line	19
	colm	57
	synt	any
	invoke	70
	line	19
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	20
	colm	1
	synt	any
	pfail
	end
proc mail__get_all_mailboxes
	local	0,001000,l
	local	1,000020,res
	local	2,000000,put
	declend
	filen	message.icn
	line	779
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	line	781
	colm	11
	synt	any
	llist	0
	line	781
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	782
	colm	4
	synt	every
	mark0
	var	2
	var	1
	pnull
	pnull
	var	0
	line	782
	colm	22
	synt	any
	bang
	line	782
	colm	25
	synt	any
	field	generate_mailboxes
	line	782
	colm	44
	synt	any
	invoke	0
	line	782
	colm	15
	synt	any
	invoke	2
	pop
lab L3
	efail
lab L4
	line	782
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	mark	L6
	var	1
	line	783
	colm	4
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	784
	colm	2
	synt	any
	pfail
	end
