emacs-config/lisp/custom/ol-message.el

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