diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/miscellany/mtrenv/bin/again

   1 : run this script through /bin/sh
   2 : PATH=:/bin:/usr/bin:/usr/ucb:/usr/uci:/usr/uci/lib/mh; export PATH
   3 F="" M="" S=""
   4
   5 for A in $*
   6 do
   7     case $A in
   8         +*|@*)  case $F in
   9                     "")  F=$A ;;
  10                     *)   echo "replf: only one folder at a time" 1>&2
  11                          exit 1 ;;
  12                 esac ;;
  13
  14         *)      S="$S $A" ;;
  15     esac
  16 done
  17
  18 prf=/tmp/prf$$ ctx=/tmp/ctx$$
  19 trap "rm -f $prf $ctx" 0 1 2 3 13 15
  20
  21 rm -f $prf
  22 echo "MH-Sequences:" > $prf
  23 echo "Previous-Sequence: pseq" >> $prf
  24 cat ${MH-$HOME/.mh_profile} >> $prf
  25 MH="$prf" ; export MH
  26
  27 rm -f $ctx
  28 cp ${MHCONTEXT-`mhpath +`/context} $ctx
  29 MHCONTEXT="$ctx" ; export MHCONTEXT
  30
  31 if burst $F -noinplace;
  32 then
  33     mark -delete -seq pseq last
  34     M="`pick pseq`"
  35     comp -draftfolder @ last -editor vi -use $S
  36     rmm $M
  37 else
  38     exit 1
  39 fi
  40
  41 exit 0