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))
|