annotate contrib/plan9/9mail @ 39163:26f3d075f36e

debugcommands: use a revset instead of dagutil

All this code was doing was finding the nodes that are heads
from the ancestors of an input set. This can easily be expressed
with a revset without having to go through dagutil.

This was the last use of ancestorset() outside of dagutil itself.

Differential Revision: https://phab.mercurial-scm.org/D4308

#!/bin/rc
# 9mail - Mercurial email wrapper for upas/marshal

fn usage {
	echo >[1=2] usage: mercurial/9mail -f from to [cc]
	exit usage
}

from=()
cc=()
to=()

switch($1){
case -f
	from=$2
case *
	usage
}

to=($3)
if(~ $#* 4)
	cc=(-C $4)

upasname=$from
upas/marshal $cc $to