pre-merge move

1 files changed, 13 insertions, 0 deletions

diff --git a/.config/emacs/emacsutils.el b/.config/emacs/emacsutils.el
new file mode 100644
index 0000000..966d16e
--- /dev/null
+++ b/.config/emacs/emacsutils.el
@@ -0,0 +1,13 @@
+(defun mailto-compose-mail (mailto-url)
+  (if (and (stringp mailto-url)
+           (string-match "\\`mailto:" mailto-url))
+      (progn
+        (require 'rfc2368)
+        (let* ((headers (mapcar (lambda (h) (cons (intern (car h)) (cdr h)))
+                          (rfc2368-parse-mailto-url mailto-url)))
+               (good-headers (remove-if (lambda (h) (member (car h) '(Body))) headers))
+               (body (cdr (assoc 'Body headers))))
+          (wl-draft good-headers nil nil body)))))
+
+(defun emacs-terminal-emulator (program)
+  (ansi-term program))
\ No newline at end of file