git.marmaro.de Git - mmh/blob - docs/historical/mh-6.8.5/miscellany/mtrenv/bin/mpick

   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         -*)     S="$S $A" ;;
   9
  10         +*|@*)  case $F in
  11                     "")  F=$A ;;
  12                     *)   echo "mpick: only one folder at a time" 1>&2
  13                          exit 1 ;;
  14                 esac ;;
  15
  16         *)      M="$M $A" ;;
  17     esac
  18 done
  19
  20 S="$S -sequence hits -list -nozero"
  21
  22 if mark $F all -add -sequence hits;
  23     then mark $F all -delete -sequence hits;
  24     else exit 1;
  25 fi
  26
  27 for A in ${M-cur}
  28 do
  29     for C in `mhpath $F $A`
  30     do
  31         if [ -r $C ];
  32             then
  33                 I=`mhl -form mhl.msgid $C`;
  34                 case $I in
  35                     "")  echo "no message-id in message `basename $C`" 1>&2 ;;
  36                     *)   pick --in-reply-to "$I" $S ;;
  37                 esac
  38             else
  39                 echo "message $A doesn't exist" 1>&2; exit 1;
  40         fi
  41     done
  42 done
  43
  44 exit 0