;;; ol-message.el --- Support for links to mail message
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(require 'ol)
|
|
|
|
(defun org-message-command (link)
|
|
"The Emacs command to be used to open a message in Mail via LINK."
|
|
(shell-command (format "open \"message:%s\"" link))
|
|
(message "Opening message in Mail..."))
|
|
|
|
(org-link-set-parameters "message"
|
|
:follow #'org-message-command)
|
|
|
|
(provide 'ol-message)
|
|
;;; ol-message.el ends here
|