version	U12.1.00
uid	rfc822parser.u1-1788539950-0
record	mail__RFC822Parser__state,3
	0,__s
	1,__m
	2,reason
record	mail__RFC822Parser__methods,46
	0,parse_error
	1,parse_quoted_string
	2,parse_atom
	3,parse_domain_literal
	4,parse_comment
	5,next_token
	6,parse_word
	7,parse_local_part
	8,parse_domain
	9,parse_sub_domain
	10,parse_phrase
	11,parse_addr_spec
	12,parse_route
	13,parse_route_addr
	14,parse_mailbox_impl
	15,parse_group_impl
	16,parse_mailbox_or_group
	17,parse_address_list_impl
	18,parse_mailbox_list_impl
	19,parse_month
	20,parse_day
	21,parse_year
	22,parse_2dig
	23,parse_zone
	24,parse_date_time_impl
	25,parse_field_impl
	26,parse_content_transfer_encoding_impl
	27,parse_type
	28,parse_disposition_type
	29,parse_extension_token
	30,parse_token_1521
	31,parse_content_type_impl
	32,parse_content_disposition_impl
	33,parse_mailbox
	34,parse_group
	35,parse_address_list
	36,parse_mailbox_list
	37,parse_date_time
	38,parse_field
	39,parse_content_type
	40,parse_content_disposition
	41,parse_content_transfer_encoding
	42,initially
	43,error
	44,get_reason
	45,util__Error
impl	local
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/error.u
link	scan.u
link	caseless.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	64
	0,000001,mail__ctl_char,0
	1,000001,mail__space,0
	2,000001,mail__specials,0
	3,000001,mail__atom_char,0
	4,000001,mail__ctext_char,0
	5,000001,mail__field_name_chars,0
	6,000001,mail__qtext_char,0
	7,000001,mail__dtext_char,0
	8,000001,mail__lwsp_char,0
	9,000001,mail__days,0
	10,000001,mail__months,0
	11,000001,mail__tz_chars,0
	12,000001,mail__tspecials,0
	13,000001,mail__atom_char_1521,0
	14,000005,mail__init_parser,0
	15,000005,mail__RFC822Parser_parse_error,2
	16,000005,mail__RFC822Parser_parse_quoted_string,1
	17,000005,mail__RFC822Parser_parse_atom,1
	18,000005,mail__RFC822Parser_parse_domain_literal,1
	19,000005,mail__RFC822Parser_parse_comment,1
	20,000005,mail__RFC822Parser_next_token,1
	21,000005,mail__RFC822Parser_parse_word,1
	22,000005,mail__RFC822Parser_parse_local_part,1
	23,000005,mail__RFC822Parser_parse_domain,1
	24,000005,mail__RFC822Parser_parse_sub_domain,1
	25,000005,mail__RFC822Parser_parse_phrase,1
	26,000005,mail__RFC822Parser_parse_addr_spec,2
	27,000005,mail__RFC822Parser_parse_route,2
	28,000005,mail__RFC822Parser_parse_route_addr,2
	29,000005,mail__RFC822Parser_parse_mailbox_impl,2
	30,000005,mail__RFC822Parser_parse_group_impl,2
	31,000005,mail__RFC822Parser_parse_mailbox_or_group,1
	32,000005,mail__RFC822Parser_parse_address_list_impl,2
	33,000005,mail__RFC822Parser_parse_mailbox_list_impl,2
	34,000005,mail__RFC822Parser_parse_month,1
	35,000005,mail__RFC822Parser_parse_day,1
	36,000005,mail__RFC822Parser_parse_year,1
	37,000005,mail__RFC822Parser_parse_2dig,1
	38,000005,mail__RFC822Parser_parse_zone,1
	39,000005,mail__RFC822Parser_parse_date_time_impl,1
	40,000005,mail__RFC822Parser_parse_field_impl,2
	41,000005,mail__RFC822Parser_parse_content_transfer_encoding_impl,1
	42,000005,mail__RFC822Parser_parse_type,1
	43,000005,mail__RFC822Parser_parse_disposition_type,1
	44,000005,mail__RFC822Parser_parse_extension_token,1
	45,000005,mail__RFC822Parser_parse_token_1521,1
	46,000005,mail__RFC822Parser_parse_content_type_impl,2
	47,000005,mail__RFC822Parser_parse_content_disposition_impl,2
	48,000005,mail__RFC822Parser_parse_mailbox,3
	49,000005,mail__RFC822Parser_parse_group,3
	50,000005,mail__RFC822Parser_parse_address_list,3
	51,000005,mail__RFC822Parser_parse_mailbox_list,3
	52,000005,mail__RFC822Parser_parse_date_time,2
	53,000005,mail__RFC822Parser_parse_field,3
	54,000005,mail__RFC822Parser_parse_content_type,3
	55,000005,mail__RFC822Parser_parse_content_disposition,3
	56,000005,mail__RFC822Parser_parse_content_transfer_encoding,2
	57,000005,mail__RFC822Parser_initially,1
	58,000011,mail__RFC822Parser__state,3
	59,000011,mail__RFC822Parser__methods,46
	60,000001,mail__RFC822Parser__oprec,0
	61,000001,util__Error__oprec,0
	62,000005,mail__RFC822Parser,0
	63,000005,mail__RFC822Parserinitialize,0

proc mail__init_parser
	local	0,000000,mail__ctl_char
	local	1,000000,mail__space
	local	2,000000,mail__specials
	local	3,000000,mail__atom_char
	local	4,000000,mail__qtext_char
	local	5,000000,mail__dtext_char
	local	6,000000,mail__ctext_char
	local	7,000000,mail__field_name_chars
	local	8,000000,mail__lwsp_char
	local	9,000000,mail__days
	local	10,000000,mail__months
	local	11,000000,mail__tz_chars
	local	12,000000,mail__tspecials
	local	13,000000,mail__atom_char_1521
	con	0,002000,1,1
	con	1,002000,2,33
	con	2,002000,3,128
	con	3,020000,1,040
	con	4,020000,13,050,051,074,076,100,054,073,072,134,042,056,133,135
	con	5,020000,3,042,134,015
	con	6,020000,4,133,135,134,015
	con	7,020000,4,050,051,134,015
	con	8,020000,1,072
	con	9,020000,2,040,011
	con	10,010000,3,115,157,156
	con	11,010000,3,124,165,145
	con	12,010000,3,127,145,144
	con	13,010000,3,124,150,165
	con	14,010000,3,106,162,151
	con	15,010000,3,123,141,164
	con	16,010000,3,123,165,156
	con	17,010000,3,112,141,156
	con	18,010000,3,106,145,142
	con	19,010000,3,115,141,162
	con	20,010000,3,101,160,162
	con	21,010000,3,115,141,171
	con	22,010000,3,112,165,156
	con	23,010000,3,112,165,154
	con	24,010000,3,101,165,147
	con	25,010000,3,123,145,160
	con	26,010000,3,117,143,164
	con	27,010000,3,116,157,166
	con	28,010000,3,104,145,143
	con	29,020000,2,053,055
	con	30,020000,15,050,051,074,076,100,054,073,072,134,042,057,133,135,077,075
	declend
	filen	rfc822parser.icn
	line	17
	colm	12
	synt	any
	mark	L1
	pnull
	var	0
	pnull
	pnull
	line	18
	colm	20
	synt	any
	keywd	ascii
	int	0
	int	1
	line	18
	colm	28
	synt	any
	synt	any
	sect
	pnull
	line	18
	colm	34
	synt	any
	keywd	ascii
	int	2
	line	18
	colm	40
	synt	any
	subsc
	line	18
	colm	32
	synt	any
	unions
	line	18
	colm	18
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	cset	3
	line	19
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	cset	4
	line	20
	colm	18
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	pnull
	pnull
	pnull
	line	21
	colm	21
	synt	any
	keywd	ascii
	var	0
	line	21
	colm	27
	synt	any
	diff
	var	1
	line	21
	colm	43
	synt	any
	diff
	var	2
	line	21
	colm	56
	synt	any
	diff
	line	21
	colm	19
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	4
	pnull
	line	22
	colm	22
	synt	any
	keywd	ascii
	cset	5
	line	22
	colm	28
	synt	any
	diff
	line	22
	colm	20
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	5
	pnull
	line	23
	colm	22
	synt	any
	keywd	ascii
	cset	6
	line	23
	colm	28
	synt	any
	diff
	line	23
	colm	20
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	6
	pnull
	line	24
	colm	22
	synt	any
	keywd	ascii
	cset	7
	line	24
	colm	28
	synt	any
	diff
	line	24
	colm	20
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	7
	pnull
	pnull
	pnull
	line	25
	colm	28
	synt	any
	keywd	ascii
	var	0
	line	25
	colm	34
	synt	any
	diff
	var	1
	line	25
	colm	50
	synt	any
	diff
	cset	8
	line	25
	colm	63
	synt	any
	diff
	line	25
	colm	26
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	8
	cset	9
	line	26
	colm	19
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	9
	pnull
	str	10
	str	11
	str	12
	str	13
	str	14
	str	15
	str	16
	line	27
	colm	16
	synt	any
	llist	7
	line	27
	colm	14
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	10
	pnull
	str	17
	str	18
	str	19
	str	20
	str	21
	str	22
	str	23
	str	24
	str	25
	str	26
	str	27
	str	28
	line	28
	colm	18
	synt	any
	llist	12
	line	28
	colm	16
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	11
	pnull
	pnull
	cset	29
	line	29
	colm	26
	synt	any
	keywd	digits
	line	29
	colm	24
	synt	any
	unions
	line	29
	colm	35
	synt	any
	keywd	ucase
	line	29
	colm	33
	synt	any
	unions
	line	29
	colm	18
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	var	12
	cset	30
	line	31
	colm	19
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	var	13
	pnull
	pnull
	pnull
	line	32
	colm	26
	synt	any
	keywd	ascii
	var	0
	line	32
	colm	32
	synt	any
	diff
	var	1
	line	32
	colm	48
	synt	any
	diff
	var	12
	line	32
	colm	61
	synt	any
	diff
	line	32
	colm	24
	synt	any
	asgn
	unmark
lab L14
	pnull
	line	33
	colm	2
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_error
	local	0,001000,self
	local	1,001000,s
	con	0,010000,15,105,162,162,157,162,040,160,141,162,163,151,156,147,040,047
	con	1,010000,3,047,072,040
	declend
	line	43
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	44
	colm	18
	synt	any
	field	error
	pnull
	pnull
	pnull
	str	0
	line	44
	colm	44
	synt	any
	keywd	subject
	line	44
	colm	42
	synt	any
	cat
	str	1
	line	44
	colm	52
	synt	any
	cat
	var	1
	line	44
	colm	59
	synt	any
	cat
	line	44
	colm	24
	synt	any
	invoke	1
	line	44
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	45
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_quoted_string
	local	0,001000,self
	local	1,000020,res
	local	2,000000,move
	local	3,000000,any
	local	4,000000,mail__qtext_char
	local	5,000000,tab
	local	6,000000,many
	con	0,002000,1,1
	con	1,020000,1,134
	con	2,002000,1,2
	con	3,010000,26,125,156,164,145,162,155,151,156,141,164,145,144,040,161,165,157,164,145,144,040,163,164,162,151,156,147
	con	4,020000,1,042
	con	5,010000,37,115,151,163,163,151,156,147,040,143,154,157,163,151,156,147,040,161,165,157,164,145,040,157,162,040,151,154,154,145,147,141,154,040,143,150,141,162
	declend
	line	55
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	int	0
	line	58
	colm	20
	synt	any
	invoke	1
	line	58
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	59
	colm	7
	synt	repeat
	mark	L3
	line	60
	colm	10
	synt	ifelse
	mark	L6
	var	3
	cset	1
	line	60
	colm	18
	synt	any
	invoke	1
	unmark
	pnull
	var	1
	dup
	mark	L8
	var	2
	int	2
	line	61
	colm	28
	synt	any
	invoke	1
	line	61
	colm	32
	synt	any
	esusp
	goto	L9
lab L8
	mark	L10
	pnull
	var	0
	line	61
	colm	45
	synt	any
	field	parse_error
	str	3
	line	61
	colm	57
	synt	any
	invoke	1
	line	61
	colm	34
	synt	any
	pret
lab L10
	synt	any
	pfail
lab L9
	line	61
	colm	17
	synt	any
	cat
	asgn
	goto	L7
lab L6
	line	62
	colm	17
	synt	ifelse
	mark	L11
	var	3
	var	4
	line	62
	colm	25
	synt	any
	invoke	1
	unmark
	pnull
	var	1
	dup
	var	5
	var	6
	var	4
	line	63
	colm	34
	synt	any
	invoke	1
	line	63
	colm	27
	synt	any
	invoke	1
	line	63
	colm	17
	synt	any
	cat
	asgn
	goto	L12
lab L11
	line	64
	colm	15
	synt	ifelse
	mark	L13
	var	3
	cset	4
	line	64
	colm	23
	synt	any
	invoke	1
	unmark
	mark	L15
	pnull
	var	1
	var	2
	int	0
	line	65
	colm	33
	synt	any
	invoke	1
	line	65
	colm	24
	synt	any
	cat
	line	65
	colm	13
	synt	any
	pret
lab L15
	synt	any
	pfail
	goto	L14
lab L13
	mark	L16
	pnull
	var	0
	line	68
	colm	24
	synt	any
	field	parse_error
	str	5
	line	68
	colm	36
	synt	any
	invoke	1
	line	68
	colm	13
	synt	any
	pret
lab L16
	synt	any
	pfail
lab L14
	line	64
	colm	15
	synt	endifelse
lab L12
	line	62
	colm	17
	synt	endifelse
lab L7
	line	60
	colm	10
	synt	endifelse
lab L4
	unmark
	goto	L3
lab L5
	line	59
	colm	7
	synt	endrepeat
	unmark
lab L2
	pnull
	line	70
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_atom
	local	0,001000,self
	local	1,000000,tab
	local	2,000000,many
	local	3,000000,mail__atom_char
	declend
	line	78
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	2
	var	3
	line	79
	colm	26
	synt	any
	invoke	1
	line	79
	colm	19
	synt	any
	invoke	1
	line	79
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	80
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_domain_literal
	local	0,001000,self
	local	1,000020,res
	local	2,000000,move
	local	3,000000,any
	local	4,000000,mail__dtext_char
	local	5,000000,tab
	local	6,000000,many
	con	0,002000,1,1
	con	1,020000,1,134
	con	2,002000,1,2
	con	3,010000,22,120,162,145,155,141,164,165,162,145,040,145,156,144,040,157,146,040,146,151,145,154,144
	con	4,020000,1,135
	con	5,010000,33,115,151,163,163,151,156,147,040,143,154,157,163,151,156,147,040,135,040,157,162,040,151,154,154,145,147,141,154,040,143,150,141,162
	declend
	line	88
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	int	0
	line	90
	colm	20
	synt	any
	invoke	1
	line	90
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	91
	colm	7
	synt	repeat
	mark	L3
	line	92
	colm	10
	synt	ifelse
	mark	L6
	var	3
	cset	1
	line	92
	colm	18
	synt	any
	invoke	1
	unmark
	pnull
	var	1
	dup
	mark	L8
	var	2
	int	2
	line	93
	colm	28
	synt	any
	invoke	1
	line	93
	colm	32
	synt	any
	esusp
	goto	L9
lab L8
	mark	L10
	pnull
	var	0
	line	93
	colm	45
	synt	any
	field	parse_error
	str	3
	line	93
	colm	57
	synt	any
	invoke	1
	line	93
	colm	34
	synt	any
	pret
lab L10
	synt	any
	pfail
lab L9
	line	93
	colm	17
	synt	any
	cat
	asgn
	goto	L7
lab L6
	line	94
	colm	15
	synt	ifelse
	mark	L11
	var	3
	var	4
	line	94
	colm	23
	synt	any
	invoke	1
	unmark
	pnull
	var	1
	dup
	var	5
	var	6
	var	4
	line	95
	colm	34
	synt	any
	invoke	1
	line	95
	colm	27
	synt	any
	invoke	1
	line	95
	colm	17
	synt	any
	cat
	asgn
	goto	L12
lab L11
	line	96
	colm	15
	synt	ifelse
	mark	L13
	var	3
	cset	4
	line	96
	colm	23
	synt	any
	invoke	1
	unmark
	mark	L15
	pnull
	var	1
	var	2
	int	0
	line	97
	colm	33
	synt	any
	invoke	1
	line	97
	colm	24
	synt	any
	cat
	line	97
	colm	13
	synt	any
	pret
lab L15
	synt	any
	pfail
	goto	L14
lab L13
	mark	L16
	pnull
	var	0
	line	100
	colm	24
	synt	any
	field	parse_error
	str	5
	line	100
	colm	36
	synt	any
	invoke	1
	line	100
	colm	13
	synt	any
	pret
lab L16
	synt	any
	pfail
lab L14
	line	96
	colm	15
	synt	endifelse
lab L12
	line	94
	colm	15
	synt	endifelse
lab L7
	line	92
	colm	10
	synt	endifelse
lab L4
	unmark
	goto	L3
lab L5
	line	91
	colm	7
	synt	endrepeat
	unmark
lab L2
	pnull
	line	102
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_comment
	local	0,001000,self
	local	1,000020,res
	local	2,000000,move
	local	3,000000,any
	local	4,000000,mail__ctext_char
	local	5,000000,tab
	local	6,000000,many
	con	0,002000,1,1
	con	1,020000,1,134
	con	2,002000,1,2
	con	3,010000,22,120,162,145,155,141,164,165,162,145,040,145,156,144,040,157,146,040,146,151,145,154,144
	con	4,020000,1,050
	con	5,020000,1,051
	con	6,010000,33,115,151,163,163,151,156,147,040,143,154,157,163,151,156,147,040,051,040,157,162,040,151,154,154,145,147,141,154,040,143,150,141,162
	declend
	line	107
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	int	0
	line	109
	colm	20
	synt	any
	invoke	1
	line	109
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	110
	colm	7
	synt	repeat
	mark	L3
	line	111
	colm	10
	synt	ifelse
	mark	L6
	var	3
	cset	1
	line	111
	colm	18
	synt	any
	invoke	1
	unmark
	pnull
	var	1
	dup
	mark	L8
	var	2
	int	2
	line	112
	colm	28
	synt	any
	invoke	1
	line	112
	colm	32
	synt	any
	esusp
	goto	L9
lab L8
	mark	L10
	pnull
	var	0
	line	112
	colm	45
	synt	any
	field	parse_error
	str	3
	line	112
	colm	57
	synt	any
	invoke	1
	line	112
	colm	34
	synt	any
	pret
lab L10
	synt	any
	pfail
lab L9
	line	112
	colm	17
	synt	any
	cat
	asgn
	goto	L7
lab L6
	line	113
	colm	15
	synt	ifelse
	mark	L11
	var	3
	var	4
	line	113
	colm	23
	synt	any
	invoke	1
	unmark
	pnull
	var	1
	dup
	var	5
	var	6
	var	4
	line	114
	colm	34
	synt	any
	invoke	1
	line	114
	colm	27
	synt	any
	invoke	1
	line	114
	colm	17
	synt	any
	cat
	asgn
	goto	L12
lab L11
	line	115
	colm	15
	synt	ifelse
	mark	L13
	var	3
	cset	4
	line	115
	colm	23
	synt	any
	invoke	1
	unmark
	pnull
	var	1
	dup
	mark	L15
	pnull
	var	0
	line	116
	colm	26
	synt	any
	field	parse_comment
	line	116
	colm	40
	synt	any
	invoke	0
	line	116
	colm	42
	synt	any
	esusp
	goto	L16
lab L15
	line	116
	colm	43
	synt	any
	pfail
lab L16
	line	116
	colm	17
	synt	any
	cat
	asgn
	goto	L14
lab L13
	line	117
	colm	15
	synt	ifelse
	mark	L17
	var	3
	cset	5
	line	117
	colm	23
	synt	any
	invoke	1
	unmark
	mark	L19
	pnull
	var	1
	var	2
	int	0
	line	118
	colm	33
	synt	any
	invoke	1
	line	118
	colm	24
	synt	any
	cat
	line	118
	colm	13
	synt	any
	pret
lab L19
	synt	any
	pfail
	goto	L18
lab L17
	mark	L20
	pnull
	var	0
	line	121
	colm	24
	synt	any
	field	parse_error
	str	6
	line	121
	colm	36
	synt	any
	invoke	1
	line	121
	colm	13
	synt	any
	pret
lab L20
	synt	any
	pfail
lab L18
	line	117
	colm	15
	synt	endifelse
lab L14
	line	115
	colm	15
	synt	endifelse
lab L12
	line	113
	colm	15
	synt	endifelse
lab L7
	line	111
	colm	10
	synt	endifelse
lab L4
	unmark
	goto	L3
lab L5
	line	110
	colm	7
	synt	endrepeat
	unmark
lab L2
	pnull
	line	123
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_next_token
	local	0,001000,self
	local	1,000000,tab
	local	2,000000,many
	local	3,000000,mail__lwsp_char
	local	4,000000,any
	con	0,020000,1,050
	declend
	line	125
	colm	11
	synt	any
	mark	L1
lab L2
	line	126
	colm	7
	synt	repeat
	mark	L2
	mark	L5
	var	1
	var	2
	var	3
	line	127
	colm	22
	synt	any
	invoke	1
	line	127
	colm	15
	synt	any
	invoke	1
	unmark
lab L5
	line	128
	colm	10
	synt	ifelse
	mark	L6
	var	4
	cset	0
	line	128
	colm	18
	synt	any
	invoke	1
	unmark
	mark	L8
	pnull
	var	0
	line	129
	colm	17
	synt	any
	field	parse_comment
	line	129
	colm	31
	synt	any
	invoke	0
	line	129
	colm	33
	synt	any
	esusp
	goto	L9
lab L8
	line	129
	colm	34
	synt	any
	pfail
lab L9
	goto	L7
lab L6
	mark	L10
	pnull
	line	131
	colm	13
	synt	any
	pret
lab L10
	synt	any
	pfail
lab L7
	line	128
	colm	10
	synt	endifelse
lab L3
	unmark
	goto	L2
lab L4
	line	126
	colm	7
	synt	endrepeat
	unmark
lab L1
	pnull
	line	133
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_word
	local	0,001000,self
	local	1,000000,any
	con	0,020000,1,042
	declend
	line	138
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	139
	colm	11
	synt	any
	field	next_token
	line	139
	colm	22
	synt	any
	invoke	0
	line	139
	colm	24
	synt	any
	esusp
	goto	L3
lab L2
	line	139
	colm	25
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	line	140
	colm	7
	synt	ifelse
	mark	L5
	var	1
	cset	0
	line	140
	colm	15
	synt	any
	invoke	1
	unmark
	mark	L7
	pnull
	var	0
	line	141
	colm	21
	synt	any
	field	parse_quoted_string
	line	141
	colm	41
	synt	any
	invoke	0
	line	141
	colm	10
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L6
lab L5
	mark	L8
	pnull
	var	0
	line	143
	colm	21
	synt	any
	field	parse_atom
	line	143
	colm	32
	synt	any
	invoke	0
	line	143
	colm	10
	synt	any
	pret
lab L8
	synt	any
	pfail
lab L6
	line	140
	colm	7
	synt	endifelse
	unmark
lab L4
	pnull
	line	144
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_local_part
	local	0,001000,self
	local	1,000020,res
	con	0,010000,1,056
	declend
	line	149
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	152
	colm	18
	synt	any
	field	parse_word
	line	152
	colm	29
	synt	any
	invoke	0
	line	152
	colm	31
	synt	any
	esusp
	goto	L3
lab L2
	line	152
	colm	32
	synt	any
	pfail
lab L3
	line	152
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L4
lab L5
	line	154
	colm	7
	synt	while
	mark0
	pnull
	var	1
	dup
	pnull
	str	0
	line	154
	colm	22
	synt	any
	tabmat
	line	154
	colm	17
	synt	any
	cat
	asgn
	unmark
	mark	L5
	pnull
	var	1
	dup
	mark	L8
	pnull
	var	0
	line	155
	colm	23
	synt	any
	field	parse_word
	line	155
	colm	34
	synt	any
	invoke	0
	line	155
	colm	36
	synt	any
	esusp
	goto	L9
lab L8
	line	155
	colm	37
	synt	any
	pfail
lab L9
	line	155
	colm	14
	synt	any
	cat
	asgn
lab L6
	unmark
	goto	L5
lab L7
	line	154
	colm	7
	synt	endwhile
	unmark
lab L4
	mark	L10
	mark	L11
	var	1
	line	157
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	158
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_domain
	local	0,001000,self
	local	1,000020,res
	con	0,010000,1,056
	declend
	line	163
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	var	0
	line	166
	colm	18
	synt	any
	field	parse_sub_domain
	line	166
	colm	35
	synt	any
	invoke	0
	line	166
	colm	37
	synt	any
	esusp
	goto	L3
lab L2
	line	166
	colm	38
	synt	any
	pfail
lab L3
	line	166
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L4
lab L5
	line	168
	colm	7
	synt	while
	mark0
	pnull
	var	1
	dup
	pnull
	str	0
	line	168
	colm	22
	synt	any
	tabmat
	line	168
	colm	17
	synt	any
	cat
	asgn
	unmark
	mark	L5
	pnull
	var	1
	dup
	mark	L8
	pnull
	var	0
	line	169
	colm	23
	synt	any
	field	parse_sub_domain
	line	169
	colm	40
	synt	any
	invoke	0
	line	169
	colm	42
	synt	any
	esusp
	goto	L9
lab L8
	line	169
	colm	43
	synt	any
	pfail
lab L9
	line	169
	colm	14
	synt	any
	cat
	asgn
lab L6
	unmark
	goto	L5
lab L7
	line	168
	colm	7
	synt	endwhile
	unmark
lab L4
	mark	L10
	mark	L11
	var	1
	line	171
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	172
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_sub_domain
	local	0,001000,self
	local	1,000000,any
	con	0,020000,1,133
	declend
	line	178
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	179
	colm	11
	synt	any
	field	next_token
	line	179
	colm	22
	synt	any
	invoke	0
	line	179
	colm	24
	synt	any
	esusp
	goto	L3
lab L2
	line	179
	colm	25
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	line	180
	colm	7
	synt	ifelse
	mark	L5
	var	1
	cset	0
	line	180
	colm	15
	synt	any
	invoke	1
	unmark
	mark	L7
	pnull
	var	0
	line	181
	colm	21
	synt	any
	field	parse_domain_literal
	line	181
	colm	42
	synt	any
	invoke	0
	line	181
	colm	10
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L6
lab L5
	mark	L8
	pnull
	var	0
	line	183
	colm	21
	synt	any
	field	parse_atom
	line	183
	colm	32
	synt	any
	invoke	0
	line	183
	colm	10
	synt	any
	pret
lab L8
	synt	any
	pfail
lab L6
	line	180
	colm	7
	synt	endifelse
	unmark
lab L4
	pnull
	line	184
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_phrase
	local	0,001000,self
	local	1,000020,res
	local	2,000000,any
	local	3,000000,mail__atom_char
	con	0,010000,0
	con	1,020000,1,042
	con	2,002000,1,0
	con	3,010000,1,040
	declend
	line	193
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	str	0
	line	195
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	0
	line	196
	colm	11
	synt	any
	field	next_token
	line	196
	colm	22
	synt	any
	invoke	0
	line	196
	colm	24
	synt	any
	esusp
	goto	L4
lab L3
	line	196
	colm	25
	synt	any
	pfail
lab L4
	unmark
lab L2
	mark	L5
lab L6
	line	197
	colm	7
	synt	while
	mark0
	var	2
	mark	L9
	cset	1
	line	197
	colm	24
	synt	any
	esusp
	goto	L10
lab L9
	var	3
lab L10
	line	197
	colm	18
	synt	any
	invoke	1
	unmark
	mark	L6
	mark	L11
	line	199
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	199
	colm	13
	synt	any
	size
	int	2
	line	199
	colm	18
	synt	any
	numgt
	unmark
	pnull
	var	1
	dup
	str	3
	line	200
	colm	17
	synt	any
	cat
	asgn
	line	199
	colm	10
	synt	endif
	unmark
lab L11
	mark	L12
	pnull
	var	1
	dup
	mark	L13
	pnull
	var	0
	line	201
	colm	23
	synt	any
	field	parse_word
	line	201
	colm	34
	synt	any
	invoke	0
	line	201
	colm	36
	synt	any
	esusp
	goto	L14
lab L13
	line	201
	colm	37
	synt	any
	pfail
lab L14
	line	201
	colm	14
	synt	any
	cat
	asgn
	unmark
lab L12
	mark	L15
	pnull
	var	0
	line	202
	colm	14
	synt	any
	field	next_token
	line	202
	colm	25
	synt	any
	invoke	0
	line	202
	colm	27
	synt	any
	esusp
	goto	L16
lab L15
	line	202
	colm	28
	synt	any
	pfail
lab L16
lab L7
	unmark
	goto	L6
lab L8
	line	197
	colm	7
	synt	endwhile
	unmark
lab L5
	mark	L17
	mark	L18
	var	1
	line	209
	colm	7
	synt	any
	pret
lab L18
	synt	any
	pfail
	unmark
lab L17
	pnull
	line	210
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_addr_spec
	local	0,001000,self
	local	1,001000,mb
	con	0,010000,1,100
	con	1,010000,10,100,040,145,170,160,145,143,164,145,144
	declend
	line	215
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	216
	colm	9
	synt	any
	field	local_part
	mark	L2
	pnull
	var	0
	line	216
	colm	28
	synt	any
	field	parse_local_part
	line	216
	colm	45
	synt	any
	invoke	0
	line	216
	colm	47
	synt	any
	esusp
	goto	L3
lab L2
	line	216
	colm	48
	synt	any
	pfail
lab L3
	line	216
	colm	21
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	pnull
	var	0
	line	217
	colm	11
	synt	any
	field	next_token
	line	217
	colm	22
	synt	any
	invoke	0
	line	217
	colm	24
	synt	any
	esusp
	goto	L6
lab L5
	line	217
	colm	25
	synt	any
	pfail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	pnull
	str	0
	line	218
	colm	7
	synt	any
	tabmat
	line	218
	colm	12
	synt	any
	esusp
	goto	L9
lab L8
	mark	L10
	pnull
	var	0
	line	218
	colm	25
	synt	any
	field	parse_error
	str	1
	line	218
	colm	37
	synt	any
	invoke	1
	line	218
	colm	14
	synt	any
	pret
lab L10
	synt	any
	pfail
lab L9
	unmark
lab L7
	mark	L11
	pnull
	pnull
	var	1
	line	219
	colm	9
	synt	any
	field	domain
	mark	L12
	pnull
	var	0
	line	219
	colm	24
	synt	any
	field	parse_domain
	line	219
	colm	37
	synt	any
	invoke	0
	line	219
	colm	39
	synt	any
	esusp
	goto	L13
lab L12
	line	219
	colm	40
	synt	any
	pfail
lab L13
	line	219
	colm	17
	synt	any
	asgn
	unmark
lab L11
	mark	L14
	mark	L15
	pnull
	line	220
	colm	7
	synt	any
	pret
lab L15
	synt	any
	pfail
	unmark
lab L14
	pnull
	line	221
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_route
	local	0,001000,self
	local	1,001000,mb
	local	2,000000,put
	con	0,010000,1,100
	con	1,010000,10,100,040,145,170,160,145,143,164,145,144
	con	2,010000,1,054
	con	3,010000,1,072
	con	4,010000,10,072,040,145,170,160,145,143,164,145,144
	declend
	line	227
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	228
	colm	9
	synt	any
	field	route
	pnull
	line	228
	colm	19
	synt	any
	llist	0
	line	228
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	229
	colm	7
	synt	repeat
	mark	L3
	mark	L6
	mark	L7
	pnull
	var	0
	line	230
	colm	14
	synt	any
	field	next_token
	line	230
	colm	25
	synt	any
	invoke	0
	line	230
	colm	27
	synt	any
	esusp
	goto	L8
lab L7
	line	230
	colm	28
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	pnull
	str	0
	line	231
	colm	10
	synt	any
	tabmat
	line	231
	colm	15
	synt	any
	esusp
	goto	L11
lab L10
	mark	L12
	pnull
	var	0
	line	231
	colm	28
	synt	any
	field	parse_error
	str	1
	line	231
	colm	40
	synt	any
	invoke	1
	line	231
	colm	17
	synt	any
	pret
lab L12
	synt	any
	pfail
lab L11
	unmark
lab L9
	mark	L13
	mark	L14
	var	2
	pnull
	var	1
	line	232
	colm	18
	synt	any
	field	route
	pnull
	var	0
	line	232
	colm	30
	synt	any
	field	parse_domain
	line	232
	colm	43
	synt	any
	invoke	0
	line	232
	colm	15
	synt	any
	invoke	2
	line	232
	colm	46
	synt	any
	esusp
	goto	L15
lab L14
	line	232
	colm	47
	synt	any
	pfail
lab L15
	unmark
lab L13
	mark	L16
	mark	L17
	pnull
	var	0
	line	233
	colm	14
	synt	any
	field	next_token
	line	233
	colm	25
	synt	any
	invoke	0
	line	233
	colm	27
	synt	any
	esusp
	goto	L18
lab L17
	line	233
	colm	28
	synt	any
	pfail
lab L18
	unmark
lab L16
	mark	L19
	mark	L20
	pnull
	str	2
	line	234
	colm	10
	synt	any
	tabmat
	line	234
	colm	15
	synt	any
	esusp
	goto	L21
lab L20
	unmark
	unmark
	pnull
	goto	L5
lab L21
	unmark
lab L19
	mark	L22
	pnull
	var	0
	line	235
	colm	14
	synt	any
	field	next_token
	line	235
	colm	25
	synt	any
	invoke	0
	line	235
	colm	27
	synt	any
	esusp
	goto	L23
lab L22
	line	235
	colm	28
	synt	any
	pfail
lab L23
lab L4
	unmark
	goto	L3
lab L5
	line	229
	colm	7
	synt	endrepeat
	unmark
lab L2
	mark	L24
	mark	L25
	pnull
	var	0
	line	237
	colm	11
	synt	any
	field	next_token
	line	237
	colm	22
	synt	any
	invoke	0
	line	237
	colm	24
	synt	any
	esusp
	goto	L26
lab L25
	line	237
	colm	25
	synt	any
	pfail
lab L26
	unmark
lab L24
	mark	L27
	mark	L28
	pnull
	str	3
	line	238
	colm	7
	synt	any
	tabmat
	line	238
	colm	12
	synt	any
	esusp
	goto	L29
lab L28
	mark	L30
	pnull
	var	0
	line	238
	colm	25
	synt	any
	field	parse_error
	str	4
	line	238
	colm	37
	synt	any
	invoke	1
	line	238
	colm	14
	synt	any
	pret
lab L30
	synt	any
	pfail
lab L29
	unmark
lab L27
	mark	L31
	mark	L32
	pnull
	line	239
	colm	7
	synt	any
	pret
lab L32
	synt	any
	pfail
	unmark
lab L31
	pnull
	line	240
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_route_addr
	local	0,001000,self
	local	1,001000,mb
	local	2,000000,any
	con	0,010000,1,074
	con	1,010000,10,074,040,145,170,160,145,143,164,145,144
	con	2,020000,1,100
	con	3,010000,1,076
	con	4,010000,10,076,040,145,170,160,145,143,164,145,144
	declend
	line	245
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	str	0
	line	246
	colm	7
	synt	any
	tabmat
	line	246
	colm	12
	synt	any
	esusp
	goto	L3
lab L2
	mark	L4
	pnull
	var	0
	line	246
	colm	25
	synt	any
	field	parse_error
	str	1
	line	246
	colm	37
	synt	any
	invoke	1
	line	246
	colm	14
	synt	any
	pret
lab L4
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L5
	mark	L6
	pnull
	var	0
	line	247
	colm	11
	synt	any
	field	next_token
	line	247
	colm	22
	synt	any
	invoke	0
	line	247
	colm	24
	synt	any
	esusp
	goto	L7
lab L6
	line	247
	colm	25
	synt	any
	pfail
lab L7
	unmark
lab L5
	mark	L8
	line	248
	colm	7
	synt	ifelse
	mark	L9
	var	2
	cset	2
	line	248
	colm	15
	synt	any
	invoke	1
	unmark
	mark	L11
	pnull
	var	0
	line	249
	colm	14
	synt	any
	field	parse_route
	var	1
	line	249
	colm	26
	synt	any
	invoke	1
	line	249
	colm	30
	synt	any
	esusp
	goto	L12
lab L11
	line	249
	colm	31
	synt	any
	pfail
lab L12
	goto	L10
lab L9
	pnull
	pnull
	var	1
	line	251
	colm	12
	synt	any
	field	route
	pnull
	line	251
	colm	22
	synt	any
	llist	0
	line	251
	colm	19
	synt	any
	asgn
lab L10
	line	248
	colm	7
	synt	endifelse
	unmark
lab L8
	mark	L13
	mark	L14
	pnull
	var	0
	line	252
	colm	11
	synt	any
	field	next_token
	line	252
	colm	22
	synt	any
	invoke	0
	line	252
	colm	24
	synt	any
	esusp
	goto	L15
lab L14
	line	252
	colm	25
	synt	any
	pfail
lab L15
	unmark
lab L13
	mark	L16
	mark	L17
	pnull
	var	0
	line	253
	colm	11
	synt	any
	field	parse_addr_spec
	var	1
	line	253
	colm	27
	synt	any
	invoke	1
	line	253
	colm	31
	synt	any
	esusp
	goto	L18
lab L17
	line	253
	colm	32
	synt	any
	pfail
lab L18
	unmark
lab L16
	mark	L19
	mark	L20
	pnull
	var	0
	line	254
	colm	11
	synt	any
	field	next_token
	line	254
	colm	22
	synt	any
	invoke	0
	line	254
	colm	24
	synt	any
	esusp
	goto	L21
lab L20
	line	254
	colm	25
	synt	any
	pfail
lab L21
	unmark
lab L19
	mark	L22
	mark	L23
	pnull
	str	3
	line	255
	colm	7
	synt	any
	tabmat
	line	255
	colm	12
	synt	any
	esusp
	goto	L24
lab L23
	mark	L25
	pnull
	var	0
	line	255
	colm	25
	synt	any
	field	parse_error
	str	4
	line	255
	colm	37
	synt	any
	invoke	1
	line	255
	colm	14
	synt	any
	pret
lab L25
	synt	any
	pfail
lab L24
	unmark
lab L22
	mark	L26
	mark	L27
	pnull
	line	256
	colm	7
	synt	any
	pret
lab L27
	synt	any
	pfail
	unmark
lab L26
	pnull
	line	257
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_mailbox_impl
	local	0,001000,self
	local	1,001000,mb
	local	2,000020,x
	local	3,000000,mail__Mailbox
	local	4,000000,tab
	con	0,010000,0
	declend
	line	262
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	264
	colm	7
	synt	any
	null
	var	3
	line	264
	colm	27
	synt	any
	invoke	0
	line	264
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	269
	colm	12
	synt	any
	keywd	pos
	line	269
	colm	9
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	270
	colm	7
	synt	ifelse
	mark	L4
	pnull
	var	0
	line	270
	colm	14
	synt	any
	field	parse_addr_spec
	var	1
	line	270
	colm	30
	synt	any
	invoke	1
	unmark
	mark	L6
	pnull
	pnull
	var	1
	line	271
	colm	12
	synt	any
	field	phrase
	str	0
	line	271
	colm	20
	synt	any
	asgn
	unmark
lab L6
	pnull
	pnull
	var	1
	line	272
	colm	12
	synt	any
	field	route
	pnull
	line	272
	colm	22
	synt	any
	llist	0
	line	272
	colm	19
	synt	any
	asgn
	goto	L5
lab L4
	mark	L7
	var	4
	var	2
	line	274
	colm	15
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	1
	line	275
	colm	12
	synt	any
	field	phrase
	mark	L9
	pnull
	var	0
	line	275
	colm	27
	synt	any
	field	parse_phrase
	line	275
	colm	40
	synt	any
	invoke	0
	line	275
	colm	42
	synt	any
	esusp
	goto	L10
lab L9
	line	275
	colm	43
	synt	any
	pfail
lab L10
	line	275
	colm	20
	synt	any
	asgn
	unmark
lab L8
	mark	L11
	pnull
	var	0
	line	276
	colm	14
	synt	any
	field	parse_route_addr
	var	1
	line	276
	colm	31
	synt	any
	invoke	1
	line	276
	colm	35
	synt	any
	esusp
	goto	L12
lab L11
	line	276
	colm	36
	synt	any
	pfail
lab L12
lab L5
	line	270
	colm	7
	synt	endifelse
	unmark
lab L3
	mark	L13
	mark	L14
	var	1
	line	279
	colm	7
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	280
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_group_impl
	local	0,001000,self
	local	1,001000,group
	local	2,000020,mb
	local	3,000000,mail__Group
	local	4,000000,any
	local	5,000000,move
	local	6,000000,put
	con	0,010000,1,072
	con	1,010000,10,072,040,145,170,160,145,143,164,145,144
	con	2,020000,1,073
	con	3,002000,1,1
	con	4,010000,1,054
	con	5,010000,1,073
	con	6,010000,10,073,040,145,170,160,145,143,164,145,144
	declend
	line	286
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	289
	colm	7
	synt	any
	null
	var	3
	line	289
	colm	28
	synt	any
	invoke	0
	line	289
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	290
	colm	12
	synt	any
	field	phrase
	mark	L3
	pnull
	var	0
	line	290
	colm	27
	synt	any
	field	parse_phrase
	line	290
	colm	40
	synt	any
	invoke	0
	line	290
	colm	42
	synt	any
	esusp
	goto	L4
lab L3
	line	290
	colm	43
	synt	any
	pfail
lab L4
	line	290
	colm	20
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	pnull
	pnull
	var	1
	line	291
	colm	12
	synt	any
	field	mailboxes
	pnull
	line	291
	colm	26
	synt	any
	llist	0
	line	291
	colm	23
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	var	0
	line	292
	colm	11
	synt	any
	field	next_token
	line	292
	colm	22
	synt	any
	invoke	0
	line	292
	colm	24
	synt	any
	esusp
	goto	L8
lab L7
	line	292
	colm	25
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	pnull
	str	0
	line	293
	colm	7
	synt	any
	tabmat
	line	293
	colm	12
	synt	any
	esusp
	goto	L11
lab L10
	mark	L12
	pnull
	var	0
	line	293
	colm	25
	synt	any
	field	parse_error
	str	1
	line	293
	colm	37
	synt	any
	invoke	1
	line	293
	colm	14
	synt	any
	pret
lab L12
	synt	any
	pfail
lab L11
	unmark
lab L9
	mark	L13
	mark	L14
	pnull
	var	0
	line	295
	colm	11
	synt	any
	field	next_token
	line	295
	colm	22
	synt	any
	invoke	0
	line	295
	colm	24
	synt	any
	esusp
	goto	L15
lab L14
	line	295
	colm	25
	synt	any
	pfail
lab L15
	unmark
lab L13
	mark	L16
	line	296
	colm	7
	synt	ifelse
	mark	L17
	var	4
	cset	2
	line	296
	colm	15
	synt	any
	invoke	1
	unmark
	var	5
	int	3
	line	297
	colm	16
	synt	any
	invoke	1
	goto	L18
lab L17
	mark	L19
lab L20
	line	299
	colm	10
	synt	repeat
	mark	L20
	mark	L23
	pnull
	var	2
	mark	L24
	pnull
	var	0
	line	300
	colm	23
	synt	any
	field	parse_mailbox_impl
	line	300
	colm	42
	synt	any
	invoke	0
	line	300
	colm	44
	synt	any
	esusp
	goto	L25
lab L24
	line	300
	colm	45
	synt	any
	pfail
lab L25
	line	300
	colm	16
	synt	any
	asgn
	unmark
lab L23
	mark	L26
	var	6
	pnull
	var	1
	line	301
	colm	24
	synt	any
	field	mailboxes
	var	2
	line	301
	colm	18
	synt	any
	invoke	2
	unmark
lab L26
	mark	L27
	mark	L28
	pnull
	var	0
	line	302
	colm	17
	synt	any
	field	next_token
	line	302
	colm	28
	synt	any
	invoke	0
	line	302
	colm	30
	synt	any
	esusp
	goto	L29
lab L28
	line	302
	colm	31
	synt	any
	pfail
lab L29
	unmark
lab L27
	mark	L30
	pnull
	str	4
	line	303
	colm	13
	synt	any
	tabmat
	line	303
	colm	18
	synt	any
	esusp
	goto	L31
lab L30
	unmark
	pnull
	goto	L22
lab L31
lab L21
	unmark
	goto	L20
lab L22
	line	299
	colm	10
	synt	endrepeat
	unmark
lab L19
	mark	L32
	pnull
	str	5
	line	305
	colm	10
	synt	any
	tabmat
	line	305
	colm	15
	synt	any
	esusp
	goto	L33
lab L32
	mark	L34
	pnull
	var	0
	line	305
	colm	28
	synt	any
	field	parse_error
	str	6
	line	305
	colm	40
	synt	any
	invoke	1
	line	305
	colm	17
	synt	any
	pret
lab L34
	synt	any
	pfail
lab L33
lab L18
	line	296
	colm	7
	synt	endifelse
	unmark
lab L16
	mark	L35
	mark	L36
	var	1
	line	308
	colm	7
	synt	any
	pret
lab L36
	synt	any
	pfail
	unmark
lab L35
	pnull
	line	309
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_mailbox_or_group
	local	0,001000,self
	local	1,000020,x
	local	2,000020,a
	local	3,000000,tab
	declend
	line	311
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	314
	colm	12
	synt	any
	keywd	pos
	line	314
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	315
	colm	7
	synt	if
	mark0
	pnull
	var	2
	pnull
	var	0
	line	315
	colm	19
	synt	any
	field	parse_mailbox_impl
	line	315
	colm	38
	synt	any
	invoke	0
	line	315
	colm	12
	synt	any
	asgn
	unmark
	mark	L3
	var	2
	line	316
	colm	10
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	315
	colm	7
	synt	endif
	unmark
lab L2
	mark	L4
	var	3
	var	1
	line	317
	colm	12
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	var	0
	line	319
	colm	18
	synt	any
	field	parse_group_impl
	line	319
	colm	35
	synt	any
	invoke	0
	line	319
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	320
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_address_list_impl
	local	0,001000,self
	local	1,001000,can_be_empty
	local	2,000020,l
	local	3,000000,pos
	local	4,000000,put
	con	0,002000,1,0
	con	1,010000,1,054
	declend
	line	322
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	line	324
	colm	12
	synt	any
	llist	0
	line	324
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	326
	colm	7
	synt	if
	mark0
	pnull
	var	1
	line	326
	colm	10
	synt	any
	nonnull
	unmark
	mark	L3
	mark	L4
	pnull
	var	0
	line	327
	colm	14
	synt	any
	field	next_token
	line	327
	colm	25
	synt	any
	invoke	0
	line	327
	colm	27
	synt	any
	esusp
	goto	L5
lab L4
	line	327
	colm	28
	synt	any
	pfail
lab L5
	unmark
lab L3
	line	328
	colm	10
	synt	if
	mark0
	var	3
	int	0
	line	328
	colm	18
	synt	any
	invoke	1
	unmark
	mark	L6
	var	2
	line	329
	colm	13
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	328
	colm	10
	synt	endif
	line	326
	colm	7
	synt	endif
	unmark
lab L2
	mark	L7
lab L8
	line	332
	colm	7
	synt	repeat
	mark	L8
	mark	L11
	mark	L12
	var	4
	var	2
	pnull
	var	0
	line	333
	colm	23
	synt	any
	field	parse_mailbox_or_group
	line	333
	colm	46
	synt	any
	invoke	0
	line	333
	colm	15
	synt	any
	invoke	2
	line	333
	colm	49
	synt	any
	esusp
	goto	L13
lab L12
	line	333
	colm	50
	synt	any
	pfail
lab L13
	unmark
lab L11
	mark	L14
	mark	L15
	pnull
	var	0
	line	334
	colm	14
	synt	any
	field	next_token
	line	334
	colm	25
	synt	any
	invoke	0
	line	334
	colm	27
	synt	any
	esusp
	goto	L16
lab L15
	line	334
	colm	28
	synt	any
	pfail
lab L16
	unmark
lab L14
	mark	L17
	pnull
	str	1
	line	335
	colm	10
	synt	any
	tabmat
	line	335
	colm	15
	synt	any
	esusp
	goto	L18
lab L17
	mark	L19
	var	2
	line	335
	colm	17
	synt	any
	pret
lab L19
	synt	any
	pfail
lab L18
lab L9
	unmark
	goto	L8
lab L10
	line	332
	colm	7
	synt	endrepeat
	unmark
lab L7
	pnull
	line	337
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_mailbox_list_impl
	local	0,001000,self
	local	1,001000,can_be_empty
	local	2,000020,l
	local	3,000000,pos
	local	4,000000,put
	con	0,002000,1,0
	con	1,010000,1,054
	declend
	line	339
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	line	341
	colm	12
	synt	any
	llist	0
	line	341
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	343
	colm	7
	synt	if
	mark0
	pnull
	var	1
	line	343
	colm	10
	synt	any
	nonnull
	unmark
	mark	L3
	mark	L4
	pnull
	var	0
	line	344
	colm	14
	synt	any
	field	next_token
	line	344
	colm	25
	synt	any
	invoke	0
	line	344
	colm	27
	synt	any
	esusp
	goto	L5
lab L4
	line	344
	colm	28
	synt	any
	pfail
lab L5
	unmark
lab L3
	line	345
	colm	10
	synt	if
	mark0
	var	3
	int	0
	line	345
	colm	18
	synt	any
	invoke	1
	unmark
	mark	L6
	var	2
	line	346
	colm	13
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	345
	colm	10
	synt	endif
	line	343
	colm	7
	synt	endif
	unmark
lab L2
	mark	L7
lab L8
	line	349
	colm	7
	synt	repeat
	mark	L8
	mark	L11
	mark	L12
	var	4
	var	2
	pnull
	var	0
	line	350
	colm	23
	synt	any
	field	parse_mailbox_impl
	line	350
	colm	42
	synt	any
	invoke	0
	line	350
	colm	15
	synt	any
	invoke	2
	line	350
	colm	45
	synt	any
	esusp
	goto	L13
lab L12
	line	350
	colm	46
	synt	any
	pfail
lab L13
	unmark
lab L11
	mark	L14
	mark	L15
	pnull
	var	0
	line	351
	colm	14
	synt	any
	field	next_token
	line	351
	colm	25
	synt	any
	invoke	0
	line	351
	colm	27
	synt	any
	esusp
	goto	L16
lab L15
	line	351
	colm	28
	synt	any
	pfail
lab L16
	unmark
lab L14
	mark	L17
	pnull
	str	1
	line	352
	colm	10
	synt	any
	tabmat
	line	352
	colm	15
	synt	any
	esusp
	goto	L18
lab L17
	mark	L19
	var	2
	line	352
	colm	17
	synt	any
	pret
lab L19
	synt	any
	pfail
lab L18
lab L9
	unmark
	goto	L8
lab L10
	line	349
	colm	7
	synt	endrepeat
	unmark
lab L7
	pnull
	line	354
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_month
	local	0,001000,self
	local	1,000020,i
	local	2,000000,mail__months
	con	0,002000,1,1
	declend
	line	360
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	362
	colm	11
	synt	any
	field	next_token
	line	362
	colm	22
	synt	any
	invoke	0
	line	362
	colm	24
	synt	any
	esusp
	goto	L3
lab L2
	line	362
	colm	25
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	line	363
	colm	7
	synt	every
	mark0
	pnull
	var	1
	pnull
	int	0
	pnull
	var	2
	line	363
	colm	23
	synt	any
	size
	push1
	line	363
	colm	20
	synt	any
	toby
	line	363
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	364
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	2
	var	1
	line	364
	colm	26
	synt	any
	subsc
	line	364
	colm	13
	synt	any
	tabmat
	unmark
	mark	L7
	var	1
	line	365
	colm	13
	synt	any
	pret
lab L7
	synt	any
	pfail
	line	364
	colm	10
	synt	endif
	unmark
lab L5
	efail
lab L6
	line	363
	colm	7
	synt	endevery
	unmark
lab L4
	pnull
	line	366
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_day
	local	0,001000,self
	local	1,000020,s
	local	2,000000,tab
	local	3,000000,many
	local	4,000000,integer
	con	0,010000,14,144,151,147,151,164,040,145,170,160,145,143,164,145,144
	con	1,002000,1,2
	con	2,010000,13,151,156,166,141,154,151,144,040,144,141,171,072,040
	declend
	line	368
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	370
	colm	11
	synt	any
	field	next_token
	line	370
	colm	22
	synt	any
	invoke	0
	line	370
	colm	24
	synt	any
	esusp
	goto	L3
lab L2
	line	370
	colm	25
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	pnull
	var	1
	mark	L5
	var	2
	var	3
	line	371
	colm	25
	synt	any
	keywd	digits
	line	371
	colm	24
	synt	any
	invoke	1
	line	371
	colm	17
	synt	any
	invoke	1
	line	371
	colm	35
	synt	any
	esusp
	goto	L6
lab L5
	mark	L7
	pnull
	var	0
	line	371
	colm	48
	synt	any
	field	parse_error
	str	0
	line	371
	colm	60
	synt	any
	invoke	1
	line	371
	colm	37
	synt	any
	pret
lab L7
	synt	any
	pfail
lab L6
	line	371
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L8
	line	372
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	372
	colm	10
	synt	any
	size
	int	1
	line	372
	colm	13
	synt	any
	numle
	unmark
	mark	L9
	var	4
	var	1
	line	373
	colm	26
	synt	any
	invoke	1
	line	373
	colm	10
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	372
	colm	7
	synt	endif
	unmark
lab L8
	mark	L10
	mark	L11
	pnull
	var	0
	line	374
	colm	18
	synt	any
	field	parse_error
	pnull
	str	2
	var	1
	line	374
	colm	46
	synt	any
	cat
	line	374
	colm	30
	synt	any
	invoke	1
	line	374
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	375
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_year
	local	0,001000,self
	local	1,000020,s
	local	2,000000,tab
	local	3,000000,many
	local	4,000000,integer
	con	0,010000,14,144,151,147,151,164,040,145,170,160,145,143,164,145,144
	con	1,002000,1,2
	con	2,002000,1,4
	con	3,010000,14,151,156,166,141,154,151,144,040,171,145,141,162,072,040
	declend
	line	377
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	379
	colm	11
	synt	any
	field	next_token
	line	379
	colm	22
	synt	any
	invoke	0
	line	379
	colm	24
	synt	any
	esusp
	goto	L3
lab L2
	line	379
	colm	25
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	pnull
	var	1
	mark	L5
	var	2
	var	3
	line	380
	colm	25
	synt	any
	keywd	digits
	line	380
	colm	24
	synt	any
	invoke	1
	line	380
	colm	17
	synt	any
	invoke	1
	line	380
	colm	35
	synt	any
	esusp
	goto	L6
lab L5
	mark	L7
	pnull
	var	0
	line	380
	colm	48
	synt	any
	field	parse_error
	str	0
	line	380
	colm	60
	synt	any
	invoke	1
	line	380
	colm	37
	synt	any
	pret
lab L7
	synt	any
	pfail
lab L6
	line	380
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L8
	line	381
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	381
	colm	10
	synt	any
	size
	mark	L9
	int	1
	line	381
	colm	18
	synt	any
	esusp
	goto	L10
lab L9
	int	2
lab L10
	line	381
	colm	13
	synt	any
	numeq
	unmark
	mark	L11
	var	4
	var	1
	line	382
	colm	26
	synt	any
	invoke	1
	line	382
	colm	10
	synt	any
	pret
lab L11
	synt	any
	pfail
	line	381
	colm	7
	synt	endif
	unmark
lab L8
	mark	L12
	mark	L13
	pnull
	var	0
	line	383
	colm	18
	synt	any
	field	parse_error
	pnull
	str	3
	var	1
	line	383
	colm	47
	synt	any
	cat
	line	383
	colm	30
	synt	any
	invoke	1
	line	383
	colm	7
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	384
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_2dig
	local	0,001000,self
	local	1,000020,s
	local	2,000000,tab
	local	3,000000,many
	local	4,000000,integer
	con	0,010000,14,144,151,147,151,164,040,145,170,160,145,143,164,145,144
	con	1,002000,1,2
	con	2,010000,22,062,040,144,151,147,151,164,040,146,151,145,154,144,040,145,170,160,145,143,164,145,144
	declend
	line	386
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	388
	colm	11
	synt	any
	field	next_token
	line	388
	colm	22
	synt	any
	invoke	0
	line	388
	colm	24
	synt	any
	esusp
	goto	L3
lab L2
	line	388
	colm	25
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	pnull
	var	1
	mark	L5
	var	2
	var	3
	line	389
	colm	25
	synt	any
	keywd	digits
	line	389
	colm	24
	synt	any
	invoke	1
	line	389
	colm	17
	synt	any
	invoke	1
	line	389
	colm	35
	synt	any
	esusp
	goto	L6
lab L5
	mark	L7
	pnull
	var	0
	line	389
	colm	48
	synt	any
	field	parse_error
	str	0
	line	389
	colm	60
	synt	any
	invoke	1
	line	389
	colm	37
	synt	any
	pret
lab L7
	synt	any
	pfail
lab L6
	line	389
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L8
	line	390
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	390
	colm	10
	synt	any
	size
	int	1
	line	390
	colm	13
	synt	any
	numeq
	unmark
	mark	L9
	var	4
	var	1
	line	391
	colm	26
	synt	any
	invoke	1
	line	391
	colm	10
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	390
	colm	7
	synt	endif
	unmark
lab L8
	mark	L10
	mark	L11
	pnull
	var	0
	line	392
	colm	18
	synt	any
	field	parse_error
	str	2
	line	392
	colm	30
	synt	any
	invoke	1
	line	392
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	393
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_zone
	local	0,001000,self
	local	1,000000,tab
	local	2,000000,upto
	local	3,000000,mail__tz_chars
	local	4,000000,many
	con	0,010000,16,105,170,160,145,143,164,145,144,040,164,172,040,143,150,141,162
	declend
	line	395
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	396
	colm	11
	synt	any
	field	next_token
	line	396
	colm	22
	synt	any
	invoke	0
	line	396
	colm	24
	synt	any
	esusp
	goto	L3
lab L2
	line	396
	colm	25
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	mark	L5
	var	1
	var	2
	var	3
	line	397
	colm	19
	synt	any
	invoke	1
	line	397
	colm	12
	synt	any
	invoke	1
	line	397
	colm	36
	synt	any
	esusp
	goto	L6
lab L5
	mark	L7
	pnull
	var	0
	line	397
	colm	48
	synt	any
	field	parse_error
	str	0
	line	397
	colm	60
	synt	any
	invoke	1
	line	397
	colm	37
	synt	any
	pret
lab L7
	synt	any
	pfail
lab L6
	unmark
lab L4
	mark	L8
	mark	L9
	mark	L10
	var	1
	var	4
	var	3
	line	398
	colm	26
	synt	any
	invoke	1
	line	398
	colm	19
	synt	any
	invoke	1
	line	398
	colm	43
	synt	any
	esusp
	goto	L11
lab L10
	mark	L12
	pnull
	var	0
	line	398
	colm	55
	synt	any
	field	parse_error
	str	0
	line	398
	colm	67
	synt	any
	invoke	1
	line	398
	colm	44
	synt	any
	pret
lab L12
	synt	any
	pfail
lab L11
	line	398
	colm	7
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	399
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_date_time_impl
	local	0,001000,self
	local	1,000020,d
	local	2,000020,m
	local	3,000020,y
	local	4,000020,h
	local	5,000020,s
	local	6,000020,t
	local	7,000020,hh
	local	8,000020,mm
	local	9,000020,ss
	local	10,000020,zz
	local	11,000000,util__Time
	local	12,000000,mail__days
	local	13,000000,any
	local	14,000000,move
	local	15,000000,util__get_known_timezone
	local	16,000000,util__Timezone
	con	0,010000,1,054
	con	1,010000,10,054,040,145,170,160,145,143,164,145,144
	con	2,010000,1,072
	con	3,010000,10,072,040,145,170,160,145,143,164,145,144
	con	4,020000,1,072
	con	5,002000,1,1
	con	6,002000,1,0
	declend
	line	408
	colm	11
	synt	any
	mark	L1
	pnull
	var	6
	var	11
	line	411
	colm	22
	synt	any
	invoke	0
	line	411
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	0
	line	413
	colm	11
	synt	any
	field	next_token
	line	413
	colm	22
	synt	any
	invoke	0
	line	413
	colm	24
	synt	any
	esusp
	goto	L4
lab L3
	line	413
	colm	25
	synt	any
	pfail
lab L4
	unmark
lab L2
	mark	L5
	line	414
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	12
	line	414
	colm	12
	synt	any
	bang
	line	414
	colm	10
	synt	any
	tabmat
	unmark
	mark	L6
	mark	L7
	pnull
	var	0
	line	415
	colm	14
	synt	any
	field	next_token
	line	415
	colm	25
	synt	any
	invoke	0
	line	415
	colm	27
	synt	any
	esusp
	goto	L8
lab L7
	line	415
	colm	28
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	pnull
	str	0
	line	416
	colm	10
	synt	any
	tabmat
	line	416
	colm	15
	synt	any
	esusp
	goto	L10
lab L9
	mark	L11
	pnull
	var	0
	line	416
	colm	28
	synt	any
	field	parse_error
	str	1
	line	416
	colm	40
	synt	any
	invoke	1
	line	416
	colm	17
	synt	any
	pret
lab L11
	synt	any
	pfail
lab L10
	line	414
	colm	7
	synt	endif
	unmark
lab L5
	mark	L12
	pnull
	var	1
	mark	L13
	pnull
	var	0
	line	418
	colm	16
	synt	any
	field	parse_day
	line	418
	colm	26
	synt	any
	invoke	0
	line	418
	colm	28
	synt	any
	esusp
	goto	L14
lab L13
	line	418
	colm	29
	synt	any
	pfail
lab L14
	line	418
	colm	9
	synt	any
	asgn
	unmark
lab L12
	mark	L15
	pnull
	var	2
	mark	L16
	pnull
	var	0
	line	419
	colm	16
	synt	any
	field	parse_month
	line	419
	colm	28
	synt	any
	invoke	0
	line	419
	colm	30
	synt	any
	esusp
	goto	L17
lab L16
	line	419
	colm	31
	synt	any
	pfail
lab L17
	line	419
	colm	9
	synt	any
	asgn
	unmark
lab L15
	mark	L18
	pnull
	var	3
	mark	L19
	pnull
	var	0
	line	420
	colm	16
	synt	any
	field	parse_year
	line	420
	colm	27
	synt	any
	invoke	0
	line	420
	colm	29
	synt	any
	esusp
	goto	L20
lab L19
	line	420
	colm	30
	synt	any
	pfail
lab L20
	line	420
	colm	9
	synt	any
	asgn
	unmark
lab L18
	mark	L21
	pnull
	var	7
	mark	L22
	pnull
	var	0
	line	422
	colm	17
	synt	any
	field	parse_2dig
	line	422
	colm	28
	synt	any
	invoke	0
	line	422
	colm	30
	synt	any
	esusp
	goto	L23
lab L22
	line	422
	colm	31
	synt	any
	pfail
lab L23
	line	422
	colm	10
	synt	any
	asgn
	unmark
lab L21
	mark	L24
	mark	L25
	pnull
	var	0
	line	423
	colm	11
	synt	any
	field	next_token
	line	423
	colm	22
	synt	any
	invoke	0
	line	423
	colm	24
	synt	any
	esusp
	goto	L26
lab L25
	line	423
	colm	25
	synt	any
	pfail
lab L26
	unmark
lab L24
	mark	L27
	mark	L28
	pnull
	str	2
	line	424
	colm	7
	synt	any
	tabmat
	line	424
	colm	12
	synt	any
	esusp
	goto	L29
lab L28
	mark	L30
	pnull
	var	0
	line	424
	colm	25
	synt	any
	field	parse_error
	str	3
	line	424
	colm	37
	synt	any
	invoke	1
	line	424
	colm	14
	synt	any
	pret
lab L30
	synt	any
	pfail
lab L29
	unmark
lab L27
	mark	L31
	pnull
	var	8
	mark	L32
	pnull
	var	0
	line	425
	colm	17
	synt	any
	field	parse_2dig
	line	425
	colm	28
	synt	any
	invoke	0
	line	425
	colm	30
	synt	any
	esusp
	goto	L33
lab L32
	line	425
	colm	31
	synt	any
	pfail
lab L33
	line	425
	colm	10
	synt	any
	asgn
	unmark
lab L31
	mark	L34
	mark	L35
	pnull
	var	0
	line	426
	colm	11
	synt	any
	field	next_token
	line	426
	colm	22
	synt	any
	invoke	0
	line	426
	colm	24
	synt	any
	esusp
	goto	L36
lab L35
	line	426
	colm	25
	synt	any
	pfail
lab L36
	unmark
lab L34
	mark	L37
	line	427
	colm	7
	synt	ifelse
	mark	L38
	var	13
	cset	4
	line	427
	colm	15
	synt	any
	invoke	1
	unmark
	mark	L40
	var	14
	int	5
	line	428
	colm	16
	synt	any
	invoke	1
	unmark
lab L40
	pnull
	var	9
	mark	L41
	pnull
	var	0
	line	429
	colm	20
	synt	any
	field	parse_2dig
	line	429
	colm	31
	synt	any
	invoke	0
	line	429
	colm	33
	synt	any
	esusp
	goto	L42
lab L41
	line	429
	colm	34
	synt	any
	pfail
lab L42
	line	429
	colm	13
	synt	any
	asgn
	goto	L39
lab L38
	pnull
	var	9
	int	6
	line	431
	colm	13
	synt	any
	asgn
lab L39
	line	427
	colm	7
	synt	endifelse
	unmark
lab L37
	mark	L43
	pnull
	var	5
	mark	L44
	pnull
	var	0
	line	433
	colm	16
	synt	any
	field	parse_zone
	line	433
	colm	27
	synt	any
	invoke	0
	line	433
	colm	29
	synt	any
	esusp
	goto	L45
lab L44
	line	433
	colm	30
	synt	any
	pfail
lab L45
	line	433
	colm	9
	synt	any
	asgn
	unmark
lab L43
	mark	L46
	pnull
	var	10
	mark	L47
	var	15
	var	5
	line	434
	colm	37
	synt	any
	invoke	1
	line	434
	colm	40
	synt	any
	esusp
	goto	L48
lab L47
	var	16
	int	6
	var	5
	line	434
	colm	55
	synt	any
	invoke	2
lab L48
	line	434
	colm	10
	synt	any
	asgn
	unmark
lab L46
	mark	L49
	pnull
	var	6
	line	436
	colm	8
	synt	any
	field	set_fields
	var	3
	var	2
	var	1
	var	7
	var	8
	var	9
	var	10
	line	436
	colm	19
	synt	any
	invoke	7
	unmark
lab L49
	mark	L50
	mark	L51
	var	6
	line	438
	colm	7
	synt	any
	pret
lab L51
	synt	any
	pfail
	unmark
lab L50
	pnull
	line	439
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_field_impl
	local	0,001000,self
	local	1,001000,message
	local	2,000020,f
	local	3,000020,v
	local	4,000000,tab
	local	5,000000,many
	local	6,000000,mail__field_name_chars
	con	0,010000,22,105,170,160,145,143,164,040,146,151,145,154,144,156,141,155,145,040,143,150,141,162,163
	con	1,010000,1,072
	con	2,010000,10,072,040,145,170,160,145,143,164,145,144
	con	3,002000,1,0
	declend
	line	446
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	448
	colm	11
	synt	any
	field	next_token
	line	448
	colm	22
	synt	any
	invoke	0
	line	448
	colm	24
	synt	any
	esusp
	goto	L3
lab L2
	line	448
	colm	25
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	pnull
	var	2
	mark	L5
	var	4
	var	5
	var	6
	line	449
	colm	24
	synt	any
	invoke	1
	line	449
	colm	17
	synt	any
	invoke	1
	line	449
	colm	49
	synt	any
	esusp
	goto	L6
lab L5
	mark	L7
	pnull
	var	0
	line	449
	colm	61
	synt	any
	field	parse_error
	str	0
	line	449
	colm	73
	synt	any
	invoke	1
	line	449
	colm	50
	synt	any
	pret
lab L7
	synt	any
	pfail
lab L6
	line	449
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L8
	mark	L9
	pnull
	var	0
	line	450
	colm	11
	synt	any
	field	next_token
	line	450
	colm	22
	synt	any
	invoke	0
	line	450
	colm	24
	synt	any
	esusp
	goto	L10
lab L9
	line	450
	colm	25
	synt	any
	pfail
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	pnull
	str	1
	line	451
	colm	7
	synt	any
	tabmat
	line	451
	colm	12
	synt	any
	esusp
	goto	L13
lab L12
	mark	L14
	pnull
	var	0
	line	451
	colm	25
	synt	any
	field	parse_error
	str	2
	line	451
	colm	37
	synt	any
	invoke	1
	line	451
	colm	14
	synt	any
	pret
lab L14
	synt	any
	pfail
lab L13
	unmark
lab L11
	mark	L15
	mark	L16
	pnull
	var	0
	line	452
	colm	11
	synt	any
	field	next_token
	line	452
	colm	22
	synt	any
	invoke	0
	line	452
	colm	24
	synt	any
	esusp
	goto	L17
lab L16
	line	452
	colm	25
	synt	any
	pfail
lab L17
	unmark
lab L15
	mark	L18
	pnull
	var	3
	var	4
	int	3
	line	453
	colm	17
	synt	any
	invoke	1
	line	453
	colm	9
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	var	1
	line	454
	colm	14
	synt	any
	field	add_header
	var	2
	var	3
	line	454
	colm	25
	synt	any
	invoke	2
	unmark
lab L19
	mark	L20
	mark	L21
	pnull
	line	455
	colm	7
	synt	any
	pret
lab L21
	synt	any
	pfail
	unmark
lab L20
	pnull
	line	456
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_content_transfer_encoding_impl
	local	0,001000,self
	local	1,000020,s
	local	2,000000,tab
	local	3,000000,matchcl
	local	4,000000,match
	con	0,010000,4,067,142,151,164
	con	1,010000,16,161,165,157,164,145,144,055,160,162,151,156,164,141,142,154,145
	con	2,010000,6,142,141,163,145,066,064
	con	3,010000,4,070,142,151,164
	con	4,010000,6,142,151,156,141,162,171
	con	5,010000,2,130,055
	con	6,010000,2,170,055
	con	7,010000,16,125,156,153,156,157,167,156,040,145,156,143,157,144,151,156,147
	declend
	line	468
	colm	11
	synt	any
	mark	L1
	line	471
	colm	7
	synt	if
	mark0
	pnull
	var	1
	var	2
	var	3
	mark	L2
	str	0
	line	471
	colm	35
	synt	any
	esusp
	goto	L3
lab L2
	mark	L4
	str	1
	line	471
	colm	54
	synt	any
	esusp
	goto	L5
lab L4
	mark	L6
	str	2
	line	471
	colm	63
	synt	any
	esusp
	goto	L7
lab L6
	mark	L8
	str	3
	line	471
	colm	70
	synt	any
	esusp
	goto	L9
lab L8
	str	4
lab L9
lab L7
lab L5
lab L3
	line	471
	colm	28
	synt	any
	invoke	1
	line	471
	colm	20
	synt	any
	invoke	1
	line	471
	colm	12
	synt	any
	asgn
	unmark
	mark	L10
	var	1
	line	472
	colm	10
	synt	any
	pret
lab L10
	synt	any
	pfail
	line	471
	colm	7
	synt	endif
	unmark
lab L1
	mark	L11
	line	475
	colm	7
	synt	if
	mark0
	var	4
	mark	L12
	str	5
	line	475
	colm	22
	synt	any
	esusp
	goto	L13
lab L12
	str	6
lab L13
	line	475
	colm	17
	synt	any
	invoke	1
	unmark
	mark	L14
	pnull
	var	0
	line	476
	colm	21
	synt	any
	field	parse_extension_token
	line	476
	colm	43
	synt	any
	invoke	0
	line	476
	colm	10
	synt	any
	pret
lab L14
	synt	any
	pfail
	line	475
	colm	7
	synt	endif
	unmark
lab L11
	mark	L15
	mark	L16
	pnull
	var	0
	line	478
	colm	18
	synt	any
	field	parse_error
	str	7
	line	478
	colm	30
	synt	any
	invoke	1
	line	478
	colm	7
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	479
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_type
	local	0,001000,self
	local	1,000020,s
	local	2,000000,tab
	local	3,000000,matchcl
	local	4,000000,match
	con	0,010000,11,141,160,160,154,151,143,141,164,151,157,156
	con	1,010000,5,141,165,144,151,157
	con	2,010000,5,151,155,141,147,145
	con	3,010000,7,155,145,163,163,141,147,145
	con	4,010000,9,155,165,154,164,151,160,141,162,164
	con	5,010000,4,164,145,170,164
	con	6,010000,5,166,151,144,145,157
	con	7,010000,2,130,055
	con	8,010000,2,170,055
	con	9,010000,12,125,156,153,156,157,167,156,040,164,171,160,145
	declend
	line	488
	colm	11
	synt	any
	mark	L1
	line	491
	colm	7
	synt	if
	mark0
	pnull
	var	1
	var	2
	var	3
	mark	L2
	str	0
	line	491
	colm	42
	synt	any
	esusp
	goto	L3
lab L2
	mark	L4
	str	1
	line	491
	colm	50
	synt	any
	esusp
	goto	L5
lab L4
	mark	L6
	str	2
	line	491
	colm	58
	synt	any
	esusp
	goto	L7
lab L6
	mark	L8
	str	3
	line	491
	colm	68
	synt	any
	esusp
	goto	L9
lab L8
	mark	L10
	str	4
	line	491
	colm	80
	synt	any
	esusp
	goto	L11
lab L10
	mark	L12
	str	5
	line	491
	colm	87
	synt	any
	esusp
	goto	L13
lab L12
	str	6
lab L13
lab L11
lab L9
lab L7
lab L5
lab L3
	line	491
	colm	28
	synt	any
	invoke	1
	line	491
	colm	20
	synt	any
	invoke	1
	line	491
	colm	12
	synt	any
	asgn
	unmark
	mark	L14
	var	1
	line	492
	colm	10
	synt	any
	pret
lab L14
	synt	any
	pfail
	line	491
	colm	7
	synt	endif
	unmark
lab L1
	mark	L15
	line	495
	colm	7
	synt	if
	mark0
	var	4
	mark	L16
	str	7
	line	495
	colm	22
	synt	any
	esusp
	goto	L17
lab L16
	str	8
lab L17
	line	495
	colm	17
	synt	any
	invoke	1
	unmark
	mark	L18
	pnull
	var	0
	line	496
	colm	21
	synt	any
	field	parse_extension_token
	line	496
	colm	43
	synt	any
	invoke	0
	line	496
	colm	10
	synt	any
	pret
lab L18
	synt	any
	pfail
	line	495
	colm	7
	synt	endif
	unmark
lab L15
	mark	L19
	mark	L20
	pnull
	var	0
	line	498
	colm	18
	synt	any
	field	parse_error
	str	9
	line	498
	colm	30
	synt	any
	invoke	1
	line	498
	colm	7
	synt	any
	pret
lab L20
	synt	any
	pfail
	unmark
lab L19
	pnull
	line	499
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_disposition_type
	local	0,001000,self
	local	1,000020,s
	local	2,000000,tab
	local	3,000000,matchcl
	local	4,000000,match
	con	0,010000,6,151,156,154,151,156,145
	con	1,010000,10,141,164,164,141,143,150,155,145,156,164
	con	2,010000,2,130,055
	con	3,010000,2,170,055
	con	4,010000,32,125,156,153,156,157,167,156,040,103,157,156,164,145,156,164,055,144,151,163,160,157,163,151,164,151,157,156,040,164,171,160,145
	declend
	line	506
	colm	11
	synt	any
	mark	L1
	line	509
	colm	7
	synt	if
	mark0
	pnull
	var	1
	var	2
	var	3
	mark	L2
	str	0
	line	509
	colm	37
	synt	any
	esusp
	goto	L3
lab L2
	str	1
lab L3
	line	509
	colm	28
	synt	any
	invoke	1
	line	509
	colm	20
	synt	any
	invoke	1
	line	509
	colm	12
	synt	any
	asgn
	unmark
	mark	L4
	var	1
	line	510
	colm	10
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	509
	colm	7
	synt	endif
	unmark
lab L1
	mark	L5
	line	513
	colm	7
	synt	if
	mark0
	var	4
	mark	L6
	str	2
	line	513
	colm	22
	synt	any
	esusp
	goto	L7
lab L6
	str	3
lab L7
	line	513
	colm	17
	synt	any
	invoke	1
	unmark
	mark	L8
	pnull
	var	0
	line	514
	colm	21
	synt	any
	field	parse_extension_token
	line	514
	colm	43
	synt	any
	invoke	0
	line	514
	colm	10
	synt	any
	pret
lab L8
	synt	any
	pfail
	line	513
	colm	7
	synt	endif
	unmark
lab L5
	mark	L9
	mark	L10
	pnull
	var	0
	line	516
	colm	18
	synt	any
	field	parse_error
	str	4
	line	516
	colm	30
	synt	any
	invoke	1
	line	516
	colm	7
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	517
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_extension_token
	local	0,001000,self
	local	1,000020,s
	con	0,010000,2,130,055
	con	1,010000,2,170,055
	con	2,010000,17,130,055,040,157,162,040,170,055,040,145,170,160,145,143,164,145,144
	declend
	line	529
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	mark	L4
	str	0
	line	531
	colm	18
	synt	any
	esusp
	goto	L5
lab L4
	str	1
lab L5
	line	531
	colm	12
	synt	any
	tabmat
	line	531
	colm	25
	synt	any
	esusp
	goto	L3
lab L2
	mark	L6
	pnull
	var	0
	line	531
	colm	38
	synt	any
	field	parse_error
	str	2
	line	531
	colm	50
	synt	any
	invoke	1
	line	531
	colm	27
	synt	any
	pret
lab L6
	synt	any
	pfail
lab L3
	line	531
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L7
	mark	L8
	pnull
	var	1
	pnull
	var	0
	line	532
	colm	23
	synt	any
	field	parse_token_1521
	line	532
	colm	40
	synt	any
	invoke	0
	line	532
	colm	16
	synt	any
	cat
	line	532
	colm	7
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	533
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_token_1521
	local	0,001000,self
	local	1,000000,tab
	local	2,000000,many
	local	3,000000,mail__atom_char_1521
	declend
	line	545
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	2
	var	3
	line	546
	colm	26
	synt	any
	invoke	1
	line	546
	colm	19
	synt	any
	invoke	1
	line	546
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	547
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_content_type_impl
	local	0,001000,self
	local	1,001000,ct
	local	2,000020,ty
	local	3,000020,key
	local	4,000020,val
	local	5,000020,st
	local	6,000000,mail__ContentType
	local	7,000000,any
	con	0,010000,1,057
	con	1,010000,10,057,040,145,170,160,145,143,164,145,144
	con	2,010000,1,073
	con	3,010000,1,075
	con	4,010000,10,075,040,145,170,160,145,143,164,145,144
	con	5,020000,1,042
	declend
	line	559
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	562
	colm	11
	synt	any
	field	next_token
	line	562
	colm	22
	synt	any
	invoke	0
	line	562
	colm	24
	synt	any
	esusp
	goto	L3
lab L2
	line	562
	colm	25
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	pnull
	pnull
	var	1
	line	564
	colm	7
	synt	any
	null
	var	6
	line	564
	colm	31
	synt	any
	invoke	0
	line	564
	colm	11
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	2
	mark	L6
	pnull
	var	0
	line	566
	colm	17
	synt	any
	field	parse_type
	line	566
	colm	28
	synt	any
	invoke	0
	line	566
	colm	30
	synt	any
	esusp
	goto	L7
lab L6
	line	566
	colm	31
	synt	any
	pfail
lab L7
	line	566
	colm	10
	synt	any
	asgn
	unmark
lab L5
	mark	L8
	mark	L9
	pnull
	var	0
	line	567
	colm	11
	synt	any
	field	next_token
	line	567
	colm	22
	synt	any
	invoke	0
	line	567
	colm	24
	synt	any
	esusp
	goto	L10
lab L9
	line	567
	colm	25
	synt	any
	pfail
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	pnull
	str	0
	line	568
	colm	7
	synt	any
	tabmat
	line	568
	colm	12
	synt	any
	esusp
	goto	L13
lab L12
	mark	L14
	pnull
	var	0
	line	568
	colm	25
	synt	any
	field	parse_error
	str	1
	line	568
	colm	37
	synt	any
	invoke	1
	line	568
	colm	14
	synt	any
	pret
lab L14
	synt	any
	pfail
lab L13
	unmark
lab L11
	mark	L15
	mark	L16
	pnull
	var	0
	line	569
	colm	11
	synt	any
	field	next_token
	line	569
	colm	22
	synt	any
	invoke	0
	line	569
	colm	24
	synt	any
	esusp
	goto	L17
lab L16
	line	569
	colm	25
	synt	any
	pfail
lab L17
	unmark
lab L15
	mark	L18
	pnull
	var	5
	mark	L19
	pnull
	var	0
	line	570
	colm	17
	synt	any
	field	parse_token_1521
	line	570
	colm	34
	synt	any
	invoke	0
	line	570
	colm	36
	synt	any
	esusp
	goto	L20
lab L19
	line	570
	colm	37
	synt	any
	pfail
lab L20
	line	570
	colm	10
	synt	any
	asgn
	unmark
lab L18
	mark	L21
	pnull
	var	1
	line	572
	colm	9
	synt	any
	field	set_type
	var	2
	line	572
	colm	18
	synt	any
	invoke	1
	unmark
lab L21
	mark	L22
	pnull
	var	1
	line	573
	colm	9
	synt	any
	field	set_subtype
	var	5
	line	573
	colm	21
	synt	any
	invoke	1
	unmark
lab L22
	mark	L23
lab L24
	line	575
	colm	7
	synt	repeat
	mark	L24
	mark	L27
	mark	L28
	pnull
	var	0
	line	576
	colm	14
	synt	any
	field	next_token
	line	576
	colm	25
	synt	any
	invoke	0
	line	576
	colm	27
	synt	any
	esusp
	goto	L29
lab L28
	line	576
	colm	28
	synt	any
	pfail
lab L29
	unmark
lab L27
	mark	L30
	mark	L31
	pnull
	str	2
	line	577
	colm	10
	synt	any
	tabmat
	line	577
	colm	15
	synt	any
	esusp
	goto	L32
lab L31
	unmark
	unmark
	pnull
	goto	L26
lab L32
	unmark
lab L30
	mark	L33
	mark	L34
	pnull
	var	0
	line	578
	colm	14
	synt	any
	field	next_token
	line	578
	colm	25
	synt	any
	invoke	0
	line	578
	colm	27
	synt	any
	esusp
	goto	L35
lab L34
	line	578
	colm	28
	synt	any
	pfail
lab L35
	unmark
lab L33
	mark	L36
	pnull
	var	3
	mark	L37
	pnull
	var	0
	line	579
	colm	21
	synt	any
	field	parse_token_1521
	line	579
	colm	38
	synt	any
	invoke	0
	line	579
	colm	40
	synt	any
	esusp
	goto	L38
lab L37
	line	579
	colm	41
	synt	any
	pfail
lab L38
	line	579
	colm	14
	synt	any
	asgn
	unmark
lab L36
	mark	L39
	mark	L40
	pnull
	var	0
	line	580
	colm	14
	synt	any
	field	next_token
	line	580
	colm	25
	synt	any
	invoke	0
	line	580
	colm	27
	synt	any
	esusp
	goto	L41
lab L40
	line	580
	colm	28
	synt	any
	pfail
lab L41
	unmark
lab L39
	mark	L42
	mark	L43
	pnull
	str	3
	line	581
	colm	10
	synt	any
	tabmat
	line	581
	colm	15
	synt	any
	esusp
	goto	L44
lab L43
	mark	L45
	pnull
	var	0
	line	581
	colm	28
	synt	any
	field	parse_error
	str	4
	line	581
	colm	40
	synt	any
	invoke	1
	line	581
	colm	17
	synt	any
	pret
lab L45
	synt	any
	pfail
lab L44
	unmark
lab L42
	mark	L46
	mark	L47
	pnull
	var	0
	line	582
	colm	14
	synt	any
	field	next_token
	line	582
	colm	25
	synt	any
	invoke	0
	line	582
	colm	27
	synt	any
	esusp
	goto	L48
lab L47
	line	582
	colm	28
	synt	any
	pfail
lab L48
	unmark
lab L46
	mark	L49
	line	583
	colm	10
	synt	ifelse
	mark	L50
	var	7
	cset	5
	line	583
	colm	18
	synt	any
	invoke	1
	unmark
	pnull
	var	4
	mark	L52
	pnull
	var	0
	line	584
	colm	25
	synt	any
	field	parse_quoted_string
	line	584
	colm	45
	synt	any
	invoke	0
	line	584
	colm	47
	synt	any
	esusp
	goto	L53
lab L52
	line	584
	colm	48
	synt	any
	pfail
lab L53
	line	584
	colm	17
	synt	any
	asgn
	goto	L51
lab L50
	pnull
	var	4
	mark	L54
	pnull
	var	0
	line	586
	colm	24
	synt	any
	field	parse_token_1521
	line	586
	colm	41
	synt	any
	invoke	0
	line	586
	colm	43
	synt	any
	esusp
	goto	L55
lab L54
	line	586
	colm	44
	synt	any
	pfail
lab L55
	line	586
	colm	17
	synt	any
	asgn
lab L51
	line	583
	colm	10
	synt	endifelse
	unmark
lab L49
	pnull
	var	1
	line	588
	colm	12
	synt	any
	field	set_parameter
	var	3
	var	4
	line	588
	colm	26
	synt	any
	invoke	2
lab L25
	unmark
	goto	L24
lab L26
	line	575
	colm	7
	synt	endrepeat
	unmark
lab L23
	mark	L56
	mark	L57
	var	1
	line	591
	colm	7
	synt	any
	pret
lab L57
	synt	any
	pfail
	unmark
lab L56
	pnull
	line	592
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_content_disposition_impl
	local	0,001000,self
	local	1,001000,cd
	local	2,000020,ty
	local	3,000020,key
	local	4,000020,val
	local	5,000000,mail__ContentDisposition
	local	6,000000,any
	con	0,010000,1,073
	con	1,010000,1,075
	con	2,010000,10,075,040,145,170,160,145,143,164,145,144
	con	3,020000,1,042
	declend
	line	608
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	611
	colm	11
	synt	any
	field	next_token
	line	611
	colm	22
	synt	any
	invoke	0
	line	611
	colm	24
	synt	any
	esusp
	goto	L3
lab L2
	line	611
	colm	25
	synt	any
	pfail
lab L3
	unmark
lab L1
	mark	L4
	pnull
	pnull
	var	1
	line	613
	colm	7
	synt	any
	null
	var	5
	line	613
	colm	38
	synt	any
	invoke	0
	line	613
	colm	11
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	2
	mark	L6
	pnull
	var	0
	line	615
	colm	17
	synt	any
	field	parse_disposition_type
	line	615
	colm	40
	synt	any
	invoke	0
	line	615
	colm	42
	synt	any
	esusp
	goto	L7
lab L6
	line	615
	colm	43
	synt	any
	pfail
lab L7
	line	615
	colm	10
	synt	any
	asgn
	unmark
lab L5
	mark	L8
	pnull
	var	1
	line	617
	colm	9
	synt	any
	field	set_type
	var	2
	line	617
	colm	18
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
lab L10
	line	619
	colm	7
	synt	repeat
	mark	L10
	mark	L13
	mark	L14
	pnull
	var	0
	line	620
	colm	14
	synt	any
	field	next_token
	line	620
	colm	25
	synt	any
	invoke	0
	line	620
	colm	27
	synt	any
	esusp
	goto	L15
lab L14
	line	620
	colm	28
	synt	any
	pfail
lab L15
	unmark
lab L13
	mark	L16
	mark	L17
	pnull
	str	0
	line	621
	colm	10
	synt	any
	tabmat
	line	621
	colm	15
	synt	any
	esusp
	goto	L18
lab L17
	unmark
	unmark
	pnull
	goto	L12
lab L18
	unmark
lab L16
	mark	L19
	mark	L20
	pnull
	var	0
	line	622
	colm	14
	synt	any
	field	next_token
	line	622
	colm	25
	synt	any
	invoke	0
	line	622
	colm	27
	synt	any
	esusp
	goto	L21
lab L20
	line	622
	colm	28
	synt	any
	pfail
lab L21
	unmark
lab L19
	mark	L22
	pnull
	var	3
	mark	L23
	pnull
	var	0
	line	623
	colm	21
	synt	any
	field	parse_token_1521
	line	623
	colm	38
	synt	any
	invoke	0
	line	623
	colm	40
	synt	any
	esusp
	goto	L24
lab L23
	line	623
	colm	41
	synt	any
	pfail
lab L24
	line	623
	colm	14
	synt	any
	asgn
	unmark
lab L22
	mark	L25
	mark	L26
	pnull
	var	0
	line	624
	colm	14
	synt	any
	field	next_token
	line	624
	colm	25
	synt	any
	invoke	0
	line	624
	colm	27
	synt	any
	esusp
	goto	L27
lab L26
	line	624
	colm	28
	synt	any
	pfail
lab L27
	unmark
lab L25
	mark	L28
	mark	L29
	pnull
	str	1
	line	625
	colm	10
	synt	any
	tabmat
	line	625
	colm	15
	synt	any
	esusp
	goto	L30
lab L29
	mark	L31
	pnull
	var	0
	line	625
	colm	28
	synt	any
	field	parse_error
	str	2
	line	625
	colm	40
	synt	any
	invoke	1
	line	625
	colm	17
	synt	any
	pret
lab L31
	synt	any
	pfail
lab L30
	unmark
lab L28
	mark	L32
	mark	L33
	pnull
	var	0
	line	626
	colm	14
	synt	any
	field	next_token
	line	626
	colm	25
	synt	any
	invoke	0
	line	626
	colm	27
	synt	any
	esusp
	goto	L34
lab L33
	line	626
	colm	28
	synt	any
	pfail
lab L34
	unmark
lab L32
	mark	L35
	line	627
	colm	10
	synt	ifelse
	mark	L36
	var	6
	cset	3
	line	627
	colm	18
	synt	any
	invoke	1
	unmark
	pnull
	var	4
	mark	L38
	pnull
	var	0
	line	628
	colm	25
	synt	any
	field	parse_quoted_string
	line	628
	colm	45
	synt	any
	invoke	0
	line	628
	colm	47
	synt	any
	esusp
	goto	L39
lab L38
	line	628
	colm	48
	synt	any
	pfail
lab L39
	line	628
	colm	17
	synt	any
	asgn
	goto	L37
lab L36
	pnull
	var	4
	mark	L40
	pnull
	var	0
	line	630
	colm	24
	synt	any
	field	parse_token_1521
	line	630
	colm	41
	synt	any
	invoke	0
	line	630
	colm	43
	synt	any
	esusp
	goto	L41
lab L40
	line	630
	colm	44
	synt	any
	pfail
lab L41
	line	630
	colm	17
	synt	any
	asgn
lab L37
	line	627
	colm	10
	synt	endifelse
	unmark
lab L35
	pnull
	var	1
	line	632
	colm	12
	synt	any
	field	set_parameter
	var	3
	var	4
	line	632
	colm	26
	synt	any
	invoke	2
lab L11
	unmark
	goto	L10
lab L12
	line	619
	colm	7
	synt	endrepeat
	unmark
lab L9
	mark	L42
	mark	L43
	var	1
	line	635
	colm	7
	synt	any
	pret
lab L43
	synt	any
	pfail
	unmark
lab L42
	pnull
	line	636
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_mailbox
	local	0,001000,self
	local	1,001000,s
	local	2,001000,mb
	declend
	line	638
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	line	639
	colm	16
	synt	any
	bscan
	pnull
	var	0
	line	639
	colm	22
	synt	any
	field	parse_mailbox_impl
	var	2
	line	639
	colm	41
	synt	any
	invoke	1
	line	639
	colm	16
	synt	any
	escan
	line	639
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	640
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_group
	local	0,001000,self
	local	1,001000,s
	local	2,001000,group
	declend
	line	642
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	line	643
	colm	16
	synt	any
	bscan
	pnull
	var	0
	line	643
	colm	22
	synt	any
	field	parse_group_impl
	var	2
	line	643
	colm	39
	synt	any
	invoke	1
	line	643
	colm	16
	synt	any
	escan
	line	643
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	644
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_address_list
	local	0,001000,self
	local	1,001000,s
	local	2,001000,can_be_empty
	declend
	line	646
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	line	647
	colm	16
	synt	any
	bscan
	pnull
	var	0
	line	647
	colm	22
	synt	any
	field	parse_address_list_impl
	var	2
	line	647
	colm	46
	synt	any
	invoke	1
	line	647
	colm	16
	synt	any
	escan
	line	647
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	648
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_mailbox_list
	local	0,001000,self
	local	1,001000,s
	local	2,001000,can_be_empty
	declend
	line	650
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	line	651
	colm	16
	synt	any
	bscan
	pnull
	var	0
	line	651
	colm	22
	synt	any
	field	parse_mailbox_list_impl
	var	2
	line	651
	colm	46
	synt	any
	invoke	1
	line	651
	colm	16
	synt	any
	escan
	line	651
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	652
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_date_time
	local	0,001000,self
	local	1,001000,s
	declend
	line	654
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	line	655
	colm	16
	synt	any
	bscan
	pnull
	var	0
	line	655
	colm	22
	synt	any
	field	parse_date_time_impl
	line	655
	colm	43
	synt	any
	invoke	0
	line	655
	colm	16
	synt	any
	escan
	line	655
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	656
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_field
	local	0,001000,self
	local	1,001000,s
	local	2,001000,message
	declend
	line	658
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	line	659
	colm	16
	synt	any
	bscan
	pnull
	var	0
	line	659
	colm	22
	synt	any
	field	parse_field_impl
	var	2
	line	659
	colm	39
	synt	any
	invoke	1
	line	659
	colm	16
	synt	any
	escan
	line	659
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	660
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_content_type
	local	0,001000,self
	local	1,001000,s
	local	2,001000,ct
	declend
	line	662
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	line	663
	colm	16
	synt	any
	bscan
	pnull
	var	0
	line	663
	colm	22
	synt	any
	field	parse_content_type_impl
	var	2
	line	663
	colm	46
	synt	any
	invoke	1
	line	663
	colm	16
	synt	any
	escan
	line	663
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	664
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_content_disposition
	local	0,001000,self
	local	1,001000,s
	local	2,001000,ct
	declend
	line	666
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	line	667
	colm	16
	synt	any
	bscan
	pnull
	var	0
	line	667
	colm	22
	synt	any
	field	parse_content_disposition_impl
	var	2
	line	667
	colm	53
	synt	any
	invoke	1
	line	667
	colm	16
	synt	any
	escan
	line	667
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	668
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_parse_content_transfer_encoding
	local	0,001000,self
	local	1,001000,s
	declend
	line	670
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	line	671
	colm	16
	synt	any
	bscan
	pnull
	var	0
	line	671
	colm	22
	synt	any
	field	parse_content_transfer_encoding_impl
	line	671
	colm	59
	synt	any
	invoke	0
	line	671
	colm	16
	synt	any
	escan
	line	671
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	672
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser_initially
	local	0,001000,self
	local	1,000000,mail__init_parser
	declend
	line	674
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	var	1
	line	676
	colm	27
	synt	any
	invoke	0
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	mark	L5
	pnull
	line	678
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	679
	colm	1
	synt	any
	pfail
	end
proc mail__RFC822Parser
	local	0,000020,self
	local	1,000020,clone
	local	2,000000,mail__RFC822Parser__oprec
	local	3,000000,mail__RFC822Parserinitialize
	local	4,000000,util__Error__oprec
	local	5,000000,util__Errorinitialize
	local	6,000000,mail__RFC822Parser__state
	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	2
	line	8
	colm	6
	synt	any
	null
	unmark
	var	3
	line	8
	colm	66
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	4
	line	9
	colm	6
	synt	any
	null
	unmark
	var	5
	line	9
	colm	52
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	pnull
	pnull
	var	2
	line	10
	colm	28
	synt	any
	field	util__Error
	var	4
	line	10
	colm	41
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L6
	pnull
	var	0
	var	6
	line	12
	colm	37
	synt	any
	keywd	null
	var	2
	line	12
	colm	36
	synt	any
	invoke	2
	line	12
	colm	8
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	0
	line	13
	colm	7
	synt	any
	field	__s
	var	0
	line	13
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	mark	L9
	pnull
	pnull
	var	0
	line	14
	colm	7
	synt	any
	field	__m
	line	14
	colm	11
	synt	any
	field	initially
	var	0
	pnull
	line	14
	colm	21
	synt	any
	invoke	2
	line	14
	colm	29
	synt	any
	esusp
	goto	L10
lab L9
	line	14
	colm	31
	synt	any
	pfail
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	var	0
	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__RFC822Parserinitialize
	local	0,000000,mail__RFC822Parser__oprec
	local	1,000000,mail__RFC822Parser__methods
	local	2,000000,mail__RFC822Parser_parse_error
	local	3,000000,mail__RFC822Parser_parse_quoted_string
	local	4,000000,mail__RFC822Parser_parse_atom
	local	5,000000,mail__RFC822Parser_parse_domain_literal
	local	6,000000,mail__RFC822Parser_parse_comment
	local	7,000000,mail__RFC822Parser_next_token
	local	8,000000,mail__RFC822Parser_parse_word
	local	9,000000,mail__RFC822Parser_parse_local_part
	local	10,000000,mail__RFC822Parser_parse_domain
	local	11,000000,mail__RFC822Parser_parse_sub_domain
	local	12,000000,mail__RFC822Parser_parse_phrase
	local	13,000000,mail__RFC822Parser_parse_addr_spec
	local	14,000000,mail__RFC822Parser_parse_route
	local	15,000000,mail__RFC822Parser_parse_route_addr
	local	16,000000,mail__RFC822Parser_parse_mailbox_impl
	local	17,000000,mail__RFC822Parser_parse_group_impl
	local	18,000000,mail__RFC822Parser_parse_mailbox_or_group
	local	19,000000,mail__RFC822Parser_parse_address_list_impl
	local	20,000000,mail__RFC822Parser_parse_mailbox_list_impl
	local	21,000000,mail__RFC822Parser_parse_month
	local	22,000000,mail__RFC822Parser_parse_day
	local	23,000000,mail__RFC822Parser_parse_year
	local	24,000000,mail__RFC822Parser_parse_2dig
	local	25,000000,mail__RFC822Parser_parse_zone
	local	26,000000,mail__RFC822Parser_parse_date_time_impl
	local	27,000000,mail__RFC822Parser_parse_field_impl
	local	28,000000,mail__RFC822Parser_parse_content_transfer_encoding_impl
	local	29,000000,mail__RFC822Parser_parse_type
	local	30,000000,mail__RFC822Parser_parse_disposition_type
	local	31,000000,mail__RFC822Parser_parse_extension_token
	local	32,000000,mail__RFC822Parser_parse_token_1521
	local	33,000000,mail__RFC822Parser_parse_content_type_impl
	local	34,000000,mail__RFC822Parser_parse_content_disposition_impl
	local	35,000000,mail__RFC822Parser_parse_mailbox
	local	36,000000,mail__RFC822Parser_parse_group
	local	37,000000,mail__RFC822Parser_parse_address_list
	local	38,000000,mail__RFC822Parser_parse_mailbox_list
	local	39,000000,mail__RFC822Parser_parse_date_time
	local	40,000000,mail__RFC822Parser_parse_field
	local	41,000000,mail__RFC822Parser_parse_content_type
	local	42,000000,mail__RFC822Parser_parse_content_disposition
	local	43,000000,mail__RFC822Parser_parse_content_transfer_encoding
	local	44,000000,mail__RFC822Parser_initially
	local	45,000000,util__Error_error
	local	46,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
	line	19
	colm	67
	synt	any
	invoke	45
	line	19
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	20
	colm	1
	synt	any
	pfail
	end
