diff options
Diffstat (limited to 'lisp/org/org-vm.el')
| -rw-r--r-- | lisp/org/org-vm.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/org/org-vm.el b/lisp/org/org-vm.el index 7ebeadbc4d9..d7e69e35092 100644 --- a/lisp/org/org-vm.el +++ b/lisp/org/org-vm.el @@ -1,11 +1,12 @@ ;;; org-vm.el --- Support for links to VM messages from within Org-mode -;; Copyright (C) 2004-2011 Free Software Foundation, Inc. +;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010 +;; Free Software Foundation, Inc. ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 7.4 +;; Version: 7.7 ;; ;; This file is part of GNU Emacs. ;; @@ -53,8 +54,10 @@ ;; 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 + (vm-select-folder-buffer) buffer-file-name)) (and (eq major-mode 'vm-presentation-mode) (vm-summarize)) (vm-follow-summary-cursor) (save-excursion @@ -137,5 +140,6 @@ (provide 'org-vm) +;; arch-tag: cbc3047b-935e-4d2a-96e7-c5b0117aaa6d ;;; org-vm.el ends here |