BEGIN				{ begin record wais }
/^From:/	BODY	/$/	{ data -element name $1 }
/^Subject:/	BODY	/$/	{ data -element title $1 }
/^Date:/	BODY	/$/	{ data -element date $1 }
/^$/		BODY	/^From /	{
						data -text -element Body $1
				  		unread 2
                                  		end record
                                	}
