--- /dev/null
+# $Id: mail.flt,v 1.1 1996-05-01 13:46:51 adam Exp $
+BEGIN { begin record wais }
+/^From:/ BODY /$/ { data -element name $1 }
+/^Subject:/ BODY /$/ { data -element title $1 }
+/^Date:/ BODY /$/ { data -element dateOfLastModification $1 }
+/^$/ BODY /^From / {
+ data -text -element Body $1
+ unread 2
+ end record
+ }