🚀 go-pugleaf

[] Regarding vm5.32 scrolling problems;
[] carlos@snfep1.if.usp.br (Carlos Alberto M. Carvalho (r.2410)) writes:

    cc> I also observe both scrolling problems reported by
    cc> Neal_McBurnett@ATT.COM.  The first problem is the one which
    cc> makes me mad, BECAUSE IT'S IMPOSSIBLE TO READ A LONG MSG WITH
    cc> THE CURSOR IN THE SUMMARY BUFFER.

    cc> Further, sometimes the text gets screwd up. It's necessary to
    cc> use ^L to get it right. This never happens when all the msg
    cc> fits in a single screenful. I've already mentioned this, but
    cc> Kyle said it's likely to be a display problem, not a vm one. I
    cc> find this unlikely, because it happens with emacs 18.58 in a
    cc> PC emulating a vt100 and in epoch 4.2 under X11R5 in a sun
    cc> console. In both cases I'm using SunOS 4.1.2.

    cc> These problems don't appear in 5.31.

I also had this problem; the following patch fixed it for me.  I
figured out what exactly was happening when I fixed it, but now I've
forgotten :(; something to do with the save-window-excursion not
working right in the original order I think...

                                                                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 13:02:26 1992
@@ -120,11 +120,12 @@
      (let ((w (get-buffer-window (current-buffer)))
           (vm-message-pointer vmp))
        (and w
-           (save-excursion
-             (save-window-excursion
+           (save-window-excursion
+             (select-window w)
+             (save-excursion
                (let ((next-screen-context-lines 0))
                  (condition-case ()
-                     (progn (select-window w) (scroll-up nil) nil)
+                     (progn (scroll-up nil) nil)
                    (error t)))))
            (= (vm-text-end-of (car vm-message-pointer)) (point-max))
            (vm-emit-eom-blurb))))))