Mercurial > hg > Applications > mh
comparison miscellany/mtrenv/bin/mpick @ 0:bce86c4163a3
Initial revision
| author | kono |
|---|---|
| date | Mon, 18 Apr 2005 23:46:02 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:bce86c4163a3 |
|---|---|
| 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 |