diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/papers/realwork/diagram7.tex

   1 % diagram 7
   2
   3 \verbatim
   4 : 'mpick - relate messages /mtr'
   5 PATH=:/bin:/usr/bin:/usr/ucb:/usr/local:/usr/local/lib/mh; export PATH
   6 F="" M="" S=""
   7
   8 for A in $*
   9 do
  10     case $A in
  11         -*)     S="$S $A" ;;
  12
  13         +*|@*)  case $F in
  14                     "")  F=$A ;;
  15                     *)   echo "mpick: only one folder at a time" 1>&2
  16                          exit 1 ;;
  17                 esac ;;
  18
  19         *)      M="$M $A" ;;
  20     esac
  21 done
  22
  23 S="$S -sequence hits -list -nozero"
  24
  25 if mark $F all -add -sequence hits;
  26     then mark $F all -delete -sequence hits;
  27     else exit 1;
  28 fi
  29
  30 for A in ${M-cur}
  31 do
  32     for C in `mhpath $F $A`
  33     do
  34         if [ -r $C ];
  35             then
  36                 I=`mhl -form mhl.msgid $C`;
  37                 case $I in
  38                     "")  echo "no message-id in message `basename $C`" 1>&2 ;;
  39                     *)   pick --in-reply-to "$I" $S ;;
  40                 esac
  41             else
  42                 echo "message $A doesn't exist" 1>&2; exit 1;
  43         fi
  44     done
  45 done
  46
  47 exit 0
  48 ?endverbatim