call wmail to send mail.

This commit is contained in:
rsc 2004-08-22 15:38:10 +00:00
parent 18b0811745
commit f69a6ff541
2 changed files with 13 additions and 1 deletions

11
bin/wmail Executable file
View file

@ -0,0 +1,11 @@
#!/bin/sh
case "x-$MAILER" in
x-|x-browser)
# start mail in a new window
web 'mailto://'$1
;;
*)
9term $MAILER
;;
esac

View file

@ -49,7 +49,8 @@ plumb start wdoc2txt $file
type is text
data matches '[a-zA-Z0-9_+.\-]+@[a-zA-Z0-9_+.\-]*'
plumb to sendmail
plumb start window rc -c '''echo % mail '''$0'; mail '$0
plumb start wmail $0
# plumb start window rc -c '''echo % mail '''$0'; mail '$0
# image files go to page
type is text