mail.flt

harvest是一个下载html网页得机器人

# $Id: mail.flt,v 1.2 1996/06/11 10:53:55 quinn Exp $
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
                                	}