mail: org links to follow gnus mails using notmuch as its registry

1 files changed, 29 insertions, 0 deletions

diff --git a/lib/net/jao-notmuch-gnus.el b/lib/net/jao-notmuch-gnus.el
index 1951ae0..a84f94b 100644
--- a/lib/net/jao-notmuch-gnus.el
+++ b/lib/net/jao-notmuch-gnus.el
@@ -131,6 +131,35 @@ Example:
         (org-gnus-follow-link group message-id)
       (message "Couldn't get relevant infos for switching to Gnus."))))
 
+
+;;;; Org links
+(defun jao-notmuch-gnus--fname (id)
+  (let ((cmd (format "notmuch search --output=files id:%s" id)))
+    (car (split-string (shell-command-to-string cmd)))))
+
+(defun jao-notmuch-gnus-org-follow (id)
+  (when-let* ((fname (jao-notmuch-gnus--fname id))
+              (group (jao-notmuch-gnus-file-to-group fname)))
+    (org-gnus-follow-link group id)))
+
+(defun jao-notmuch-gnus-org-store ()
+  (when-let (d (or (when (derived-mode-p 'notmuch-show-mode 'notmuch-tree-mode)
+                     (cons (notmuch-show-get-message-id)
+                           (notmuch-show-get-subject)))
+                    (when (derived-mode-p 'gnus-summary-mode 'gnus-article-mode)
+                      (cons (jao-notmuch-gnus-message-id)
+                            (gnus-summary-article-subject)))))
+    (org-link-store-props :type "mail"
+                          :link (concat "mail:" (car d))
+                          :description (concat "Mail: " (cdr d)))))
+
+(org-link-set-parameters "mail"
+                         :follow #'jao-notmuch-gnus-org-follow
+                         :store #'jao-notmuch-gnus-org-store)
+
+
+;;;; consult-notmuch
+
 (with-eval-after-load "consult-notmuch"
   (defun jao-notmuch-gnus--open-candidate (candidate)
     "Open a notmuch-search completion candidate email in Gnus."