---

My integration with Org

Link messages from Org.

• Store

  (with-eval-after-load 'org
    (defun my-org-notmuch-show-store-link ()
      "Store a link to a Notmuch message."
      (interactive)
      (when (eq major-mode 'notmuch-show-mode)
        (org-store-link-props
         :type "notmuch"
         :link (concat "notmuch-show:" (notmuch-show-get-message-id t))
         :description (notmuch-show-get-message-id t)))))
  

• Follow

  (with-eval-after-load 'org
    (defun my-org-notmuch-show-follow-link (path)
      (notmuch-show (concat "id:" path))))
  

• Register

  (with-eval-after-load 'org
    (org-link-set-parameters
     "notmuch-show"
     :store #'my-org-notmuch-show-store-link
     :follow #'my-org-notmuch-show-follow-link))