: reply <file> <mesage#> <to> <sect>
: ----------------------------------
: post a reply to message <message#>, address it to <to> in section <sect>
: if message cannot be found.
:
: We assume we're at the function prompt
if !same $$ 5 badsyntax
pattern reset
pattern 0 "message!" ; : I can't find that message!
pattern 1 "1:"
send "RE "
send $2
send \m
wait 120 ; : hang around for 2 minutes at most!!
if match -1 timeout ; : oops!
if match 1 sendit
pattern reset
pattern 0 "o:" ; : as in to:
send l\m
wait 120
if match -1 timeout
pattern 0 "ubject:"
send $3
send \m
wait 120
if match -1 timeout
pattern 0 "1:"
send "Reply to #"
send $2
send \m
wait 120
if match -1 timeout
: sendit
sendf $1
pattern 0 "option"
send \m
wait 120
if match -1 timeout
pattern 0 "unction:"
send s
send $4
send \m
wait 120
if match 0 end
: timeout
set timeout TRUE
: end
