ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2020-01-11 17:02:19 +01:00
parent 38619504ed 309cdcfab4
commit 1ffb390fda
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/lisp/ol-notmuch.el
View File

@ -79,11 +79,11 @@ Should accept a notmuch search string as the sole argument."
(from (notmuch-show-get-from)) (from (notmuch-show-get-from))
(date (org-trim (notmuch-show-get-date))) (date (org-trim (notmuch-show-get-date)))
desc link) desc link)
(org-store-link-props :type "notmuch" :from from :to to :date date (org-link-store-props :type "notmuch" :from from :to to :date date
:subject subject :message-id message-id) :subject subject :message-id message-id)
(setq desc (org-email-link-description)) (setq desc (org-link-email-description))
(setq link (concat "notmuch:id:" message-id)) (setq link (concat "notmuch:id:" message-id))
(org-add-link-props :link link :description desc) (org-link-add-props :link link :description desc)
link))) link)))
(defun org-notmuch-open (path) (defun org-notmuch-open (path)
@ -108,7 +108,7 @@ Can link to more than one message, if so all matching messages are shown."
(when (eq major-mode 'notmuch-search-mode) (when (eq major-mode 'notmuch-search-mode)
(let ((link (concat "notmuch-search:" notmuch-search-query-string)) (let ((link (concat "notmuch-search:" notmuch-search-query-string))
(desc (concat "Notmuch search: " notmuch-search-query-string))) (desc (concat "Notmuch search: " notmuch-search-query-string)))
(org-store-link-props :type "notmuch-search" (org-link-store-props :type "notmuch-search"
:link link :link link
:description desc) :description desc)
link))) link)))
@ -134,7 +134,7 @@ Can link to more than one message, if so all matching messages are shown."
(when (eq major-mode 'notmuch-tree-mode) (when (eq major-mode 'notmuch-tree-mode)
(let ((link (concat "notmuch-tree:" (notmuch-tree-get-query))) (let ((link (concat "notmuch-tree:" (notmuch-tree-get-query)))
(desc (concat "Notmuch tree: " (notmuch-tree-get-query)))) (desc (concat "Notmuch tree: " (notmuch-tree-get-query))))
(org-store-link-props :type "notmuch-tree" (org-link-store-props :type "notmuch-tree"
:link link :link link
:description desc) :description desc)
link))) link)))