Add KDE-emacs/GNUS mail integration tools

[emacsstuff.git] / mail / emacs-mail

diff --git a/mail/emacs-mail b/mail/emacs-mail
new file mode 100755 (executable)
index 0000000..4a4f8ed
--- /dev/null
+++ b/mail/emacs-mail
@@ -0,0 +1,14 @@
+#!/usr/bin/python
+
+import sys
+import re
+import os
+
+QRE = re.compile("[\\\"]")
+
+def quote(s):
+    def repl(m): return "\\"+m.group(0)
+    return QRE.sub(repl,s)
+        
+os.spawnlp(os.P_WAIT,"gnuclient","gnuclient","--eval",
+           "(write-mail \"" + "\" \"".join(map(quote,sys.argv[1:])) + "\")")