Initial revision
diff --git a/Lib/packmail.py b/Lib/packmail.py
new file mode 100644
index 0000000..c7bebe8
--- /dev/null
+++ b/Lib/packmail.py
@@ -0,0 +1,48 @@
+# Module 'packmail' -- create a shell script out of some files.
+
+import mac
+import macpath
+from stat import ST_MTIME
+
+# Pack one file
+def pack(outfp, file, name):
+	fp = open(file, 'r')
+	outfp.write('sed "s/^X//" >' + name + ' <<"!"\n')
+	while 1:
+		line = fp.readline()
+		if not line: break
+		if line[-1:] <> '\n':
+			line = line + '\n'
+		outfp.write('X' + line)
+	outfp.write('!\n')
+
+# Pack some files from a directory
+def packsome(outfp, dirname, names):
+	for name in names:
+		print name
+		file = macpath.cat(dirname, name)
+		pack(outfp, file, name)
+
+# Pack all files from a directory
+def packall(outfp, dirname):
+	names = mac.listdir(dirname)
+	names.sort()
+	packsome(outfp, dirname, names)
+
+# Pack all files from a directory that are not older than a give one
+def packnotolder(outfp, dirname, oldest):
+	names = mac.listdir(dirname)
+	oldest = macpath.cat(dirname, oldest)
+	st = mac.stat(oldest)
+	mtime = st[ST_MTIME]
+	todo = []
+	for name in names:
+		print name, '...',
+		st = mac.stat(macpath.cat(dirname, name))
+		if st[ST_MTIME] >= mtime:
+			print 'Yes.'
+			todo.append(name)
+		else:
+			print 'No.'
+	todo.sort()
+	packsome(outfp, dirname, todo)