mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-15 11:46:26 +00:00
Code Releases Activity

Links to VM: Catch the case that `vm-folder-directory' is not set.

Browse source
This commit is contained in:
Carsten Dominik 2009-06-22 14:43:47 +02:00
parent c76aaf8037
commit 0a116bd65c
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/org-vm.el
View file

@ -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))