mirror of https://github.com/leahneukirchen/mblaze
mcomp: first code to compose a mail
parent
bb25a9d8a0
commit
13165d7c44
@ -0,0 +1,51 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
# mcomp [TO] - compose mail
|
||||||
|
|
||||||
|
i=0
|
||||||
|
while [ -f "snd.$i" ]; do
|
||||||
|
i=$((i+1))
|
||||||
|
done
|
||||||
|
draft="snd.$i"
|
||||||
|
|
||||||
|
{
|
||||||
|
echo -n "To: $1"
|
||||||
|
[ "$#" -gt 1 ] && shift
|
||||||
|
for rcpt; do
|
||||||
|
echo -n ", $rcpt"
|
||||||
|
done
|
||||||
|
echo
|
||||||
|
echo "Cc: "
|
||||||
|
echo "Bcc: "
|
||||||
|
echo "Subject: "
|
||||||
|
cat ~/.santoku/headers 2>/dev/null
|
||||||
|
echo
|
||||||
|
echo
|
||||||
|
if [ -f ~/.signature ]; then
|
||||||
|
printf '%s\n' '-- '
|
||||||
|
cat ~/.signature
|
||||||
|
fi
|
||||||
|
} >$draft
|
||||||
|
|
||||||
|
c=e
|
||||||
|
while :; do
|
||||||
|
case "$c" in
|
||||||
|
s|send)
|
||||||
|
sendmail -t <$draft && rm $draft
|
||||||
|
exit $?
|
||||||
|
;;
|
||||||
|
c|cancel)
|
||||||
|
echo "mcomp: cancelled draft $draft"
|
||||||
|
exit 1
|
||||||
|
;;
|
||||||
|
e|edit)
|
||||||
|
c=
|
||||||
|
if ! ${EDITOR:-vi} $draft; then
|
||||||
|
c=q
|
||||||
|
fi
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
echo -n "What now? ([s]end, [c]ancel, [e]dit) "
|
||||||
|
read -r c
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
done
|
Loading…
Reference in New Issue