rohrpost

A commandline mail client to change the world as we see it.
git clone git://r-36.net/rohrpost
Log | Files | Refs | README | LICENSE

rpcomp (462B)

      1 #!/bin/sh
      2 
      3 to=""
      4 if [ $# -gt 0 ];
      5 then
      6 	to="$1"
      7 fi
      8 
      9 BASE="$(rppath -b)"
     10 
     11 if [ ! -x $BASE/tmpl/compose.sh ];
     12 then
     13 	echo "$HOME/.rohrpost/tmpl/compose.sh does not exist. Will" \
     14 	       "not proceed."
     15 	exit 1
     16 fi
     17 
     18 tmpfile=$(mktemp)
     19 signalh() {
     20 	rm -f $tmpfile
     21 }
     22 trap 'signalh' 3 6 9 15 
     23 
     24 dfolder=$(rpcfg -v fold_drafts)
     25 
     26 $BASE/tmpl/compose.sh "${to}" > $tmpfile
     27 mid=$(rpadd -m $dfolder -f seen $tmpfile)
     28 signalh
     29 
     30 if [ $? -eq 0 ];
     31 then
     32 	rpedit -m $dfolder $mid 
     33 fi
     34