🚀 go-pugleaf

Thanks to Paul Smith for sending me a patch to correct the scrolling bug.
Andy Cowling (arc@ingres.com) already sent me a patch from Paul; the problem
is that they're somewhat different. The one Paul's just posted has more
changes. Are they really necessary or the one below is enough?

Andy Cowling wrote on 13 January 93:
 >Hi Carlos,
 >
 >Paul Smith posted a patch recently to resolve this problem.
 >
 >Have fun ! 
 >--
 >Andy Cowling
 >Ingres Ltd., (European Engineering Centre), 15-19 Britten St, London SW3 3TY
 >-------------------------------------------------------
 >From: pds@lemming.webo.dg.com (Paul D. Smith)
 >Subject: VM Scrolling bug found?
 >Date: Fri, 6 Nov 1992 11:00:06 -0500
 >
 >Further checking reveals some more facts, and a solution (maybe?) to
 >the VM 5.32beta vm-scroll-forward problem I reported yesterday.
 >
 >  * The problem only happens in vm-mutable-windows is t, not nil (I
 >    didn't try another value).
 >
 >  * If you have a summary and a message displayed, then you use 'n' to
 >    get to the next message, it displays properly.
 >
 >    However, if you then (with the cursor in the summary window) press
 >    SPC, it jumps forward about 1 1/2 pages in the message buffer so
 >    you lose part of the message.
 >
 >I commented out the (scroll-up nil) line from
 >vm-page.el:vm-howl-if-eom and all the above problems were fixed.  I
 >don't know what the problem was/is, since it *seems* like the
 >save-window-excursion should take care of this scroll-up, but it
 >causes all sorts of problems and removing it doesn't seem to have much
 >of an effect.
 >
 >Patch below.  If anyone has a better idea of what's going on/how to
 >fix it, please let me know, thanks,
 >
 >                                                                paul
 >-----
 > ------------------------------------------------------------------
 >| Paul D. Smith                          |    paul_smith@dg.com    |
 >| Data General Corp.                     | pds@lemming.webo.dg.com |
 >| Network Systems Development Division   |                         |
 >| Open Network Systems Development       |   "Pretty Damn S..."    |
 > ------------------------------------------------------------------
 >-------------------------------------------------------------------------------
 >--- vm-page.el-dist     Mon Apr 22 20:50:05 1991
 >+++ vm-page.el  Fri Nov  6 10:46:52 1992
 >@@ -124,7 +124,9 @@
 >              (save-window-excursion
 >                (let ((next-screen-context-lines 0))
 >                  (condition-case ()
 >-                     (progn (select-window w) (scroll-up nil) nil)
 >+                     (progn (select-window w)
 >+                            ;(scroll-up nil)
 >+                            nil)
 >                    (error t)))))
 >            (= (vm-text-end-of (car vm-message-pointer)) (point-max))
 >            (vm-emit-eom-blurb))))))
 >