diff options
author | Luke Shumaker <lukeshu@sbcglobal.net> | 2015-01-29 12:13:43 -0500 |
---|---|---|
committer | Luke Shumaker <lukeshu@sbcglobal.net> | 2015-01-29 12:13:43 -0500 |
commit | cbd6ae1cc7374e9c825642751bfa146c7cc0a5a8 (patch) | |
tree | 4deb4424b115b3215bc696ac467149368b97d79d /.config/emacs/emacsutils.el | |
parent | af7fca016ab0e83c129147f8102dc8ee893571a8 (diff) | |
parent | a19e716cf26fa4a67fe676d0822c96425d528903 (diff) |
Merge branch 'gluglugt60-par'
Diffstat (limited to '.config/emacs/emacsutils.el')
-rw-r--r-- | .config/emacs/emacsutils.el | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/.config/emacs/emacsutils.el b/.config/emacs/emacsutils.el deleted file mode 100644 index 966d16e..0000000 --- a/.config/emacs/emacsutils.el +++ /dev/null @@ -1,13 +0,0 @@ -(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 |