[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-contrib 59e1a9d6e4 2/2: * lisp/ol-mew.el (org-mew-stor
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/org-contrib 59e1a9d6e4 2/2: * lisp/ol-mew.el (org-mew-store-link): Do not use obsolete function names |
Date: |
Thu, 14 Sep 2023 10:00:51 -0400 (EDT) |
branch: elpa/org-contrib
commit 59e1a9d6e4317179eb0fad58066c51259ba8bcf9
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
* lisp/ol-mew.el (org-mew-store-link): Do not use obsolete function names
---
lisp/ol-mew.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/ol-mew.el b/lisp/ol-mew.el
index adc77235eb..633ec451ea 100644
--- a/lisp/ol-mew.el
+++ b/lisp/ol-mew.el
@@ -170,12 +170,12 @@ with \"t\" key."
(date (mew-header-get-value "Date:"))
(subject (mew-header-get-value "Subject:"))
desc link)
- (org-store-link-props :type "mew" :from from :to to :date date
+ (org-link-store-props :type "mew" :from from :to to :date date
:subject subject :message-id message-id)
(setq message-id (org-unbracket-string "<" ">" message-id))
- (setq desc (org-email-link-description))
+ (setq desc (org-link-email-description))
(setq link (concat "mew:" folder-name "#" message-id))
- (org-add-link-props :link link :description desc)
+ (org-link-add-props :link link :description desc)
link)))))
(defun org-mew-folder-name ()