tab/mail.flt

   1 BEGIN                           { begin record wais }
   2 /^From:/        BODY    /$/     { data -element name $1 }
   3 /^Subject:/     BODY    /$/     { data -element title $1 }
   4 /^Date:/        BODY    /$/     { data -element date $1 }
   5 /^$/            BODY    /^From /        {
   6                                                 data -text -element Body $1
   7                                                 unread 2
   8                                                 end record
   9                                         }