浏览代码

ol-notmuch: Silence byte-compiler

Nicolas Goaziou 5 年之前
父节点
当前提交
309cdcfab4
共有 1 个文件被更改,包括 5 次插入5 次删除
  1. 5 5
      contrib/lisp/ol-notmuch.el

+ 5 - 5
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)))