[PATCH 1 of 6] 9mail: new script to add support for Plan 9 upas/marshal email wrapper

[Jeff Sickel]

# HG changeset patch
# User Jeff Sickel <jas at corpus-callosum.com>
# Date 1376347009 18000
#      Mon Aug 12 17:36:49 2013 -0500
# Branch stable
# Node ID c662d9f71084020dc003d3b71804e426ef6640f3
# Parent  f37b5a17e6a0ee17afde2cdde5393dd74715fb58
9mail: new script to add support for Plan 9 upas/marshal email wrapper

diff -r f37b5a17e6a0 -r c662d9f71084 contrib/plan9/9mail
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/contrib/plan9/9mail	Mon Aug 12 17:36:49 2013 -0500
@@ -0,0 +1,26 @@
+#!/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
+