From 0a116bd65c83967915b554c2e4b9672ea887aa20 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 22 Jun 2009 14:43:47 +0200 Subject: [PATCH] Links to VM: Catch the case that `vm-folder-directory' is not set. --- lisp/org-vm.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/org-vm.el b/lisp/org-vm.el index 6eab6f3cb..78dbbe62a 100644 --- a/lisp/org-vm.el +++ b/lisp/org-vm.el @@ -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))