diff options
author | Bastien Guerry <bzg@altern.org> | 2011-02-12 19:39:06 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-02-12 19:39:06 +0100 |
commit | d95e468744f64dd8184f97b753d9e2775ad1edaf (patch) | |
tree | 276ccfd6c97cf91c00cf8981551f67c5566e5fbb | |
parent | 08650cbb5c814858e0a3864320ff96895e7def9c (diff) | |
download | org-mode-d95e468744f64dd8184f97b753d9e2775ad1edaf.tar.gz |
org-vm.el: check if buffer refers to a file when storing a link.
* org-vm.el (org-vm-store-link): Make sure the buffer is
associated with a file when trying to store an Org link.
-rw-r--r-- | lisp/org-vm.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/org-vm.el b/lisp/org-vm.el index daef671..36968fb 100644 --- a/lisp/org-vm.el +++ b/lisp/org-vm.el @@ -54,8 +54,11 @@ ;; Implementation (defun org-vm-store-link () "Store a link to a VM folder or message." - (when (or (eq major-mode 'vm-summary-mode) - (eq major-mode 'vm-presentation-mode)) + (when (and (or (eq major-mode 'vm-summary-mode) + (eq major-mode 'vm-presentation-mode)) + (save-window-excursion + (condition-case nil (vm-select-folder-buffer) + (error "Buffer not associated with any file")))) (and (eq major-mode 'vm-presentation-mode) (vm-summarize)) (vm-follow-summary-cursor) (save-excursion |