DataMuseum.dk

top - metrics - download

    Length: 778 (0x30a)
    Types: TextFile
    Names: »mpick«

└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
    └─⟦3658e588a⟧ »EurOpenD3/mail/mh/mh-6.7.tar.Z« 
        └─⟦c75e36ecb⟧ 
            └─⟦this⟧ »mh-6.7/miscellany/mtrenv/bin/mpick« 

TextFile

: run this script through /bin/sh
: PATH=:/bin:/usr/bin:/usr/ucb:/usr/uci:/usr/uci/lib/mh; export PATH
F="" M="" S=""

for A in $*
do
    case $A in
	-*)	S="$S $A" ;;

	+*|@*)  case $F in
		    "")  F=$A ;;
		    *)	 echo "mpick: only one folder at a time" 1>&2
			 exit 1 ;;
		esac ;;

	*)	M="$M $A" ;;
    esac
done

S="$S -sequence hits -list -nozero"

if mark $F all -add -sequence hits;
    then mark $F all -delete -sequence hits;
    else exit 1;
fi

for A in ${M-cur}
do
    for C in `mhpath $F $A`
    do
	if [ -r $C ];
	    then
		I=`mhl -form mhl.msgid $C`;
		case $I in
		    "")	 echo "no message-id in message `basename $C`" 1>&2 ;;
		    *)	 pick --in-reply-to "$I" $S ;;
		esac
	    else
		echo "message $A doesn't exist" 1>&2; exit 1;
	fi
    done
done

exit 0