emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/org-contrib 1ee7db2701: * lisp/ol-vm.el (org-vm-store-link


From: ELPA Syncer
Subject: [nongnu] elpa/org-contrib 1ee7db2701: * lisp/ol-vm.el (org-vm-store-link): Do not use obsolete function names
Date: Fri, 15 Sep 2023 07:00:27 -0400 (EDT)

branch: elpa/org-contrib
commit 1ee7db27015e72202928925305dde9e5a2ee6a01
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    * lisp/ol-vm.el (org-vm-store-link): Do not use obsolete function names
---
 lisp/ol-vm.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/ol-vm.el b/lisp/ol-vm.el
index bfd4a0b4ea..b42843d679 100644
--- a/lisp/ol-vm.el
+++ b/lisp/ol-vm.el
@@ -88,11 +88,11 @@
                                    folder))
                 (setq folder (replace-match "" t t folder)))))
         (setq message-id (org-unbracket-string "<" ">" message-id))
-       (org-store-link-props :type link-type :from from :to to :subject subject
+       (org-link-store-props :type link-type :from from :to to :subject subject
                              :message-id message-id :date date)
-       (setq desc (org-email-link-description))
+       (setq desc (org-link-email-description))
        (setq link (concat (concat link-type ":") folder "#" message-id))
-       (org-add-link-props :link link :description desc)
+       (org-link-add-props :link link :description desc)
        link))))
 
 (defun org-vm-open (path _)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]