-# $Id: news.flt,v 1.3 1996-01-08 09:10:54 adam Exp $
-%tagset wais
-/From:/ BODY /\n/ {b name d $1 e}
-/\nSubject:/ BODY /\n/ {b title d $1 e}
-/\nDate:/ BODY /\n/ {b dateOfLastModification d $1 e}
-/\n/ /(\n|.)*/ {b Body f $1 e}
+# $Id: news.flt,v 1.4 1996-01-08 19:15:54 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 END {
+ begin element Body
+ data -text $1
+ end record
+ }
-# $Id: sgml.flt,v 1.2 1995-12-15 17:19:40 adam Exp $
-%tagset gils
-\n*< [^>]+ >\n* {b $1}
-\n*</ [^>]* >\n* {e}
-[ \n\t]+ {d { }}
+# $Id: sgml.flt,v 1.3 1996-01-08 19:15:54 adam Exp $
+BEGIN /\n*</ BODY />\n*/ { begin record $2 }
+/\n*</ BODY />\n*/ { begin element $1 }
+/\n*<\// BODY />\n*/ { end element }
+/[ \n\t]+/ { data " " }