Return to diagram7.tex CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / mh / papers / realwork

Annotation of 43BSD/contrib/mh/papers/realwork/diagram7.tex, revision 1.1.1.1

1.1       root        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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.