update packages

lisp/org-contrib/ol-mew.el

@@ -1,4 +1,4 @@
-;;; ol-mew.el --- Links to Mew messages
+;;; ol-mew.el --- Links to Mew messages  -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2008-2021 Free Software Foundation, Inc.
 
@@ -99,11 +99,12 @@ destination folders before capture."
   :type '(repeat string))
 
 (defcustom org-mew-capture-guess-alist nil
-  "Alist of the regular expression of the folder name and the capture
-template selection keys.
+  "Alist assigning folder name and the capture template key.
+
+The key in the alist is regular expression matching the folder name.
 
 For example,
-    '((\"^%emacs-orgmode$\" . \"o\")
+    \\='((\"^%emacs-orgmode$\" . \"o\")
       (\"\" . \"t\"))
 the messages in \"%emacs-orgmode\" folder will be captured with
 the capture template associated with \"o\" key, and any other
@@ -169,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 ()