update packages
This commit is contained in:
@@ -43,7 +43,9 @@
|
||||
(defvar rmail-file-name) ; From rmail.el
|
||||
|
||||
;; Install the link type
|
||||
(org-link-set-parameters "rmail" :follow #'org-rmail-open :store #'org-rmail-store-link)
|
||||
(org-link-set-parameters "rmail"
|
||||
:follow #'org-rmail-open
|
||||
:store #'org-rmail-store-link)
|
||||
|
||||
;; Implementation
|
||||
(defun org-rmail-store-link ()
|
||||
@@ -75,7 +77,7 @@
|
||||
(rmail-show-message rmail-current-message)
|
||||
link)))))
|
||||
|
||||
(defun org-rmail-open (path)
|
||||
(defun org-rmail-open (path _)
|
||||
"Follow an Rmail message link to the specified PATH."
|
||||
(let (folder article)
|
||||
(if (not (string-match "\\`\\([^#]+\\)\\(#\\(.*\\)\\)?" path))
|
||||
|
||||
Reference in New Issue
Block a user