diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-01-11 17:02:19 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-01-11 17:02:19 +0100 |
| commit | 1ffb390fda3ecab9d3e3d9a600e7e31f335f822d (patch) | |
| tree | 59ece019880d45ff4b89f4df0479507b85c90e3c | |
| parent | 38619504ed24b4424a602b00eb33f1c2b3f24f97 (diff) | |
| parent | 309cdcfab414fe3fc0cda47ed6e91e329fcad0c9 (diff) | |
| download | org-mode-1ffb390fda3ecab9d3e3d9a600e7e31f335f822d.tar.gz | |
Merge branch 'maint'
| -rw-r--r-- | contrib/lisp/ol-notmuch.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/contrib/lisp/ol-notmuch.el b/contrib/lisp/ol-notmuch.el index 06d5787..d0bb362 100644 --- a/contrib/lisp/ol-notmuch.el +++ b/contrib/lisp/ol-notmuch.el @@ -79,11 +79,11 @@ Should accept a notmuch search string as the sole argument." (from (notmuch-show-get-from)) (date (org-trim (notmuch-show-get-date))) 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) - (setq desc (org-email-link-description)) + (setq desc (org-link-email-description)) (setq link (concat "notmuch:id:" message-id)) - (org-add-link-props :link link :description desc) + (org-link-add-props :link link :description desc) link))) (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) (let ((link (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 :description desc) 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) (let ((link (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 :description desc) link))) |