Return to mpick CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mtrenv / bin

Annotation of 43BSD/contrib/mh/miscellany/mtrenv/bin/mpick, revision 1.1

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

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