Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!brutus.cs.uiuc.edu!lll-winken!arisia!lanning
From: lanning@PARC.xerox.com (Stan Lanning)
Newsgroups: gnu.emacs
Subject: Re: VM & GNUS is really screwed when mixed together !!
Message-ID: <LANNING.89Sep13101113@archer.PARC.xerox.com>
Date: 13 Sep 89 17:11:13 GMT
References: <EHO.89Sep10035351@cognito.Princeton.EDU>
	<KIM.89Sep12174221@watsup.waterloo.edu>
Sender: news@arisia.Xerox.COM
Distribution: gnu
Organization: Xerox PARC, Palo Alto, CA
Lines: 21
In-reply-to: kim@watsup.waterloo.edu's message of 12 Sep 89 21:42:21 GMT

Try replacing the definition of vm-set-summary-pointer in vm-summary.el 
with the following.  It isn't "right", but it does seem to work.

(defun vm-set-summary-pointer (m)
  (setq overlay-arrow-position (vm-su-start-of m))
  (cond (vm-summary-buffer
	 (let ((w (get-buffer-window vm-summary-buffer)))
	   (save-excursion
	     (set-buffer vm-summary-buffer)
	     ;; This looks redundent, but it isn't since overlay-arrow-position
	     ;; is local to a buffer.  This bug is tickled if you use gnus and
	     ;; vm.  -smL
	     (setq overlay-arrow-position (vm-su-start-of m))
	     ;; Also fix up the overlay-arrow-string, which sometimes gets
	     ;; clobbered. -smL
	     (setq overlay-arrow-string "->")
	     (goto-char overlay-arrow-position)
	     (and w (set-window-point w overlay-arrow-position)))))))
--

--- smL