Interface to /bin/mail for readnews "r" command
utzoo!decvax!duke!harpo!ihnp4!ihps3!houxz!houxi!houxa!houxm!5941ux!machaids!hocda!spanky!ka
utzoo!decvax!duke!harpo!ihnp4!ihps3!houxz!houxi!houxa!houxm!5941ux!machaids!hocda!spanky!ka
Wed Dec 29 16:27:06 AEST 1982
# Program to mail replies to netnews articles using USG mail program.
#
# It invokes the editor to allow you to enter the mail, and then pipes the
# resulting file into /bin/mail. The editor is started off with a file
# containing "To:" and "Subject:" lines. If you modify the "To:" line,
# the new destination will be used, so that you can use a more efficient
# path if desired. To abort the mail, simply exit the editor without writ-
# ing the file.
#
# To use, include a line in your .profile
# MAILER="mailer '%s'" export MAILER
# repacing "mailer" with the full pathname of this file.
#
# BUGS: This fails if the title of the article contained an apostrophy.
#
t=/tmp/mailr$$a
trap "rm -f $t /tmp/mailr$$b" 0
trap : 2 3
title="$1"
case "$title" in
Re:*) ;;
*) title="Re: $title"
;;
esac
author="$2"
/bin/echo "To: $author" >$t
/bin/echo "Subject: $title\n" >>$t
/bin/cp $t /tmp/mailr$$b
${EDITOR-ed} $t
if /bin/cmp -s $t /tmp/mailr$$b
then /bin/echo mail not sent
exit
fi
to=`line <$t`
to=`expr "$to" : 'To: \(.*\)'`
if test "$to" = ""
then to="$author"
fi
/bin/mail $to <$t
More information about the Comp.sources.unix
mailing list