2013-04-10 23:57:08 -07:00
|
|
|
#!/usr/bin/txr
|
|
|
|
|
@(next :args)
|
|
|
|
|
@(cases)
|
|
|
|
|
@TO
|
|
|
|
|
@SUBJ
|
|
|
|
|
@ (maybe)
|
|
|
|
|
@CC
|
|
|
|
|
@ (or)
|
|
|
|
|
@ (bind CC "")
|
|
|
|
|
@ (end)
|
|
|
|
|
@(or)
|
|
|
|
|
@ (throw error "must specify at least To and Subject")
|
|
|
|
|
@(end)
|
2016-12-05 22:15:40 +01:00
|
|
|
@(next *stdin*)
|
2013-04-10 23:57:08 -07:00
|
|
|
@(collect)
|
|
|
|
|
@BODY
|
|
|
|
|
@(end)
|
2016-12-05 22:15:40 +01:00
|
|
|
@(output (open-command `mail -s "@SUBJ" -a CC: "@CC" "@TO"` "w"))
|
2013-04-10 23:57:08 -07:00
|
|
|
@(repeat)
|
|
|
|
|
@BODY
|
|
|
|
|
@(end)
|
|
|
|
|
.
|
|
|
|
|
@(end)
|
