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

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.