🚀 go-pugleaf

Brian Glendenning writes:
 > Would the official author care to comment about the best fix? This bug
 > has been around for an awfully long time...

This is the correct fix.

From: Jamie Zawinski <jwz@lucid.com>
Sender: bug-vm-request
To: Bug-VM@uunet.UU.NET
Subject: 5.32 vm-scroll-forward from summary buffer fix
Date: Sat, 7 Mar 92 16:48:10 PST

vm-howl-if-eom was not correctly encapsulating the call to scroll-up when
the selected window was not the message window.  Here's the fix:

(defun vm-howl-if-eom ()
  (let ((vmp vm-message-pointer))
    (vm-within-current-message-buffer
     (let ((w (get-buffer-window (current-buffer)))
	   (vm-message-pointer vmp))
       (and w
	    (save-excursion
	      (save-window-excursion
		(condition-case ()
		    (let ((next-screen-context-lines 0))
		      (select-window w)
		      (save-excursion
			(save-window-excursion
			  (scroll-up nil)))
		      nil)
		  (error t))))
	    (= (vm-text-end-of (car vm-message-pointer)) (point-max))
	    (vm-emit-eom-blurb))))))