Fix bug in VM code.

Matthew Lovell found that VM messages are only displayed reliably upon
following a link, when the function `vm-preview-current-message' is
called instead of `vm-beginning-of-message'.  This patch implements
this change.

lisp/ChangeLog

@@ -1,5 +1,8 @@
 2008-11-06  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-vm.el (org-vm-follow-link): Call `vm-preview-current-message'
+	instead of `vm-beginning-of-message'.
+
 	* org.el (org-make-link-regexps): Make sure that links to gnus can
 	contain brackets.
 

lisp/org-vm.el

@@ -33,7 +33,7 @@
 (require 'org)
 
 ;; Declare external functions and variables
-(declare-function vm-beginning-of-message "ext:vm-page" ())
+(declare-function vm-preview-current-message "ext:vm-page" ())
 (declare-function vm-follow-summary-cursor "ext:vm-motion" ())
 (declare-function vm-get-header-contents "ext:vm-summary"
 		  (message header-name-regexp &optional clump-sep))
@@ -120,7 +120,7 @@
 	    (error "Could not find the specified message in this folder"))
 	(vm-isearch-update)
 	(vm-isearch-narrow)
-	(vm-beginning-of-message)
+	(vm-preview-current-message)
 	(vm-summarize)))))
 
 (provide 'org-vm)