summaryrefslogtreecommitdiff
path: root/.config/emacs/emacsutils.el
blob: 966d16edf063391b8882cc2e32d6b8762cafa5f0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
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))