C:ED dh1:msg.temp

C:Requeststring "Post To:" "Group ..." > ENV:Group
C:Requeststring "Mail To:" "Subject ..." > ENV:Subject
C:Date > dh1:date.temp

C:Join mail:msg.head.txt ENV:Subject dh1:msg.temp dh1:date.temp user:.signature mail:msg.foot.txt to ram:msg.temp

C:Stamp time > ENV:Number
C:Copy ram:msg.temp Mail:News/$group/$number.msg
C:delete ram:msg.temp
C:delete dh1:msg.temp
C:delete dh1:date.temp
C:delete ENV:Group
C:delete ENV:Subject
C:delete ENV:Number