From 309cdcfab414fe3fc0cda47ed6e91e329fcad0c9 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 11 Jan 2020 17:02:00 +0100 Subject: [PATCH] ol-notmuch: Silence byte-compiler --- contrib/lisp/ol-notmuch.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/contrib/lisp/ol-notmuch.el b/contrib/lisp/ol-notmuch.el index 06d578722..d0bb3623a 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)))