Da

✏️ Editing: read-rfc822.go

GOOF----LE-8-2.0�������]�L�4��h�������]�g��guile�	��	g��define-module*�	��	��	g��scripts�	g��read-rfc822�	��		g��filenameS�	
f��scripts/read-rfc822.scm�	g��importsS�	g��ice-9�	
g��regex�	
��	��	g��rdelim�	��	��	��	g��exportsS�	g��read-rfc822-silently�	��	g��	autoloadsS�	g��srfi�	g��srfi-13�	��	g��string-join�	��	��	g��set-current-module�	��	 ��	!g��%include-in-guild-list�	"f��Validate an RFC822-style file.�	#g��%summary�	$g��make-regexp�	%f��^From �	&g��from-line-rx�	'f��^([^:]+):[ 	]*�	(g��header-name-rx�	)f��^[ 	]+�	*g��header-cont-rx�	+g��option�	,g��eof-object?�	-g��reverse�	.g��	read-line�	/g��regexp-exec�	0g��for-each�	1g��unread-char�	2g��string->list�	3g��
drain-message�	4g��match:suffix�	5g��string->symbol�	6g��match:substring�	7g��	substring�	8g��	match:end�	9f�� �	:g��string-null?�	;g��from�	<g��
body-lines�	=g��headers�	>g��body�	?f��
�	@g��suffix�	Ag��error�	Bf��bad component:�	Cg��
parse-message�	Dg��format�	Ef��From ~A
�	Ff��~A: ~A
�	Gf��
~A�	Hg��display-rfc822�	Ig��	open-file�	Jg��	OPEN_READ�	Kg��main�C�5������h8
����]4	
5	�4 �>��"��G���!R"#R4$i%5&R4$i'5(R4$i)5*R+R,-.+/&01��h���b���]�L�6������Z�������g��c
		
��g��filenamef��scripts/read-rfc822.scm�
	A	��	
	B	���		
���C2�
h����C��]"��p45$��6"��4�5�"���$��=45$��,4�O�
44	55�>��"��G��6"���"���4�5"�����;������g��port
	���g��line		v�g��acc			v��g��filenamef��scripts/read-rfc822.scm�
	<
��		=	��		>	��		>	��		?	��		G	��	'	G	"��	/	G	��	/	>	��	6	@	��	B	@	��	C	A	��	O	D	��	R	D	$��	Z	D	��	[	C	��	`	A	��	n	E	��	v	=	��	w	=	��	~	=	*����	=	���	����g��nameg��
drain-message��C3R+4/&.-/(56789�
hX������])4�5�45445544455��	5�M��N�C�������y������g��reversed-hlines
		Q�g��hlines			Q�g��first			Q�g��m			Q�g��name		(	Q�g��data		C	Q��g��filenamef��scripts/read-rfc822.scm�
	P	��		Q	'��			Q	��		R	&��		Q	��		S	"��		Q	��		T	%��		T	5��	(	T	%��	(	Q	��	+	U	%��	.	V	,��	3	V	=��	;	V	,��	>	W	,��	?	V	&��	A	X	&��	C	U	%��	C	Q	��	J	Y	(��	O	Y	���		Q��g��nameg��add-header!��C:3*-;<=>?@AB�
hX�������]	��$��LC��$��M�C��$��MC��$��M$��C4M�5NMC	�6������������g��	component
		T�g��t	1	L��g��filenamef��scripts/read-rfc822.scm�
	g	��		h	��	1	l	��	=	m	&��	C	m	>��	E	m	C��	G	m	&��	I	m	��	P	o	��	T	o	���		T���C�����h����4��]A$��444�555"��HHHO�Q�"���45$��)$��4>��"��G��"���4�5K"��m4	5$��4�545�"���$��4>��"��G��"���4�5�"��r4�5"��_4
J5KO�C����,������g��port
	���g��from	 ���g��
body-lines		#���g��body		&���g��headers		)���g��add-header!		3���g��line		<���g��current-header		<���g��t		y����	g��filenamef��scripts/read-rfc822.scm�
	I
��		J	��			K	��		K	"��		L	/��		K	"��		K	��	 	J	��	)	O	��	)	J	��	<	[	��	=	\	
��	G	\	��	M	]	
��	N	]	!��	d	^	��	l	^	
��	q	_	
��	y	\	����	a	����	b	����	b	����	a	����	d	
����	d	!����	e	����	e	$����	e	
����	[	����	[	����	[	����	f	����	f	���"	����g��nameg��
parse-message��CCRC���h�������]�6}�������g��port
		��g��filenamef��scripts/read-rfc822.scm�
	q
��		r	���		��g��nameg��read-rfc822-silently��CR;DE0DF�������h������]����6�w�������g��header
		��g��filenamef��scripts/read-rfc822.scm�
	v	��		w	��	
	w	$��	
	w	1��		w	���		���C=G>�	�������hX�����]	4�5$��4>��"��G��"���44�5>��"��G��4�56����������g��parse
		T�g��t			-��g��filenamef��scripts/read-rfc822.scm�
	t
��		u		��		u	��			u		��			u	��		u	)��		u	4��		u	)��	.	v	��	3	x	��	7	x	��	9	x	��	>	v	��	K	y	
��	L	y	��	P	y	��	R	y	��	T	y	���		T��g��nameg��display-rfc822��CHRIJH���h8�������-��1��3�44��554>��"��G��C���������������g��args
			1�g��parse		/��g��filenamef��scripts/read-rfc822.scm�
	{
��	
	|	��	
	|	%��		|	0��		|	%��		|	��		|	��		}	���				1

��g��nameg��read-rfc822��CRiKRC������������g��m
		0��g��filenamef��scripts/read-rfc822.scm�		-
��	4	3
��	6	4	��	9	4
��	:	6	��	@	6	$��	B	6	��	E	6
��	F	7	��	L	7	$��	N	7	��	Q	7
��	R	8	��	X	8	$��	Z	8	��	]	8
��	a	:
���	<
��	G	I
��	�	q
��	t
��
+	{
��
2��
���	
4
���C6�

📁 Sid Gifari File Manager