mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-20 04:19:13 +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)
|
||||
(setq message-id (org-remove-angle-brackets message-id))
|
||||
(setq folder (abbreviate-file-name folder))
|
||||
(if (string-match (concat "^" (regexp-quote vm-folder-directory))
|
||||
folder)
|
||||
(if (and vm-folder-directory
|
||||
(string-match (concat "^" (regexp-quote vm-folder-directory))
|
||||
folder))
|
||||
(setq folder (replace-match "" t t folder)))
|
||||
(setq desc (org-email-link-description))
|
||||
(setq link (org-make-link "vm:" folder "#" message-id))
|
||||
|
|
Loading…
Reference in a new issue