mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-12 06:39:54 +00:00
Links to VM: Catch the case that `vm-folder-directory' is not set.
This commit is contained in:
parent
c76aaf8037
commit
0a116bd65c
|
@ -71,8 +71,9 @@
|
||||||
:message-id message-id)
|
:message-id message-id)
|
||||||
(setq message-id (org-remove-angle-brackets message-id))
|
(setq message-id (org-remove-angle-brackets message-id))
|
||||||
(setq folder (abbreviate-file-name folder))
|
(setq folder (abbreviate-file-name folder))
|
||||||
(if (string-match (concat "^" (regexp-quote vm-folder-directory))
|
(if (and vm-folder-directory
|
||||||
folder)
|
(string-match (concat "^" (regexp-quote vm-folder-directory))
|
||||||
|
folder))
|
||||||
(setq folder (replace-match "" t t folder)))
|
(setq folder (replace-match "" t t folder)))
|
||||||
(setq desc (org-email-link-description))
|
(setq desc (org-email-link-description))
|
||||||
(setq link (org-make-link "vm:" folder "#" message-id))
|
(setq link (org-make-link "vm:" folder "#" message-id))
|
||||||
|
|
Loading…
Reference in a new issue