🚀 go-pugleaf

>From uucp Sun Oct 14 20:20 MET 1990 remote from nixbln
To: nixpbe!unido!gnu-emacs-bug
Path: nixbln!nixpbe!unido!mcsun!uunet!know!cs.utexas.edu!tut.cis.ohio-state.edu!SRC.HONEYWELL.COM!hadden
From: hadden@SRC.HONEYWELL.COM (George D. Hadden)
Newsgroups: gnu.emacs.bug
Subject: bug in rmailsum.el window scrolling
Message-ID: <9010081941.AA02107@ella.src.honeywell.com>
Date: 8 Oct 90 19:41:20 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: GNUs Not Usenet
Lines: 46
Posted: Mon Oct  8 20:41:20 1990


The rmail summary scroll-msg functions do not work properly when the
"other-window" is not the rmail buffer, e.g. when there are windows other
than the rmail and summary windows.  here's a fix:

-geo
---
George D. Hadden, Honeywell Systems and Research Center
       Where "Research" is our middle name!
PHONE:  (612)782-7769    ARPA:   hadden@src.honeywell.com
MAIL:   3660 Technology Drive MN65-2100, Minneapolis, MN 55418
UUCP:   {umn-cs, ems, bthpyd}!srcsip!hadden

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; from ... /gnu/emacs/lisp/rmailsum.el

;;; the old ones:
;(defun rmail-summary-scroll-msg-up (&optional dist)
;  "Scroll other window forward."
;  (interactive "P")
;  (scroll-other-window dist))
;
;(defun rmail-summary-scroll-msg-down (&optional dist)
;  "Scroll other window backward."
;  (interactive "P")
;  (scroll-other-window
;   (cond ((eq dist '-) nil)
;	 ((null dist) '-)
;	 (t (- (prefix-numeric-value dist))))))
;

;;; the new ones:
(defun rmail-summary-scroll-msg-up (&optional dist)
  "Scroll other window forward."
  (interactive "P")
  (pop-to-buffer rmail-buffer)
  (unwind-protect
    (scroll-up dist)
    (pop-to-buffer rmail-summary-buffer)))

(defun rmail-summary-scroll-msg-down (&optional dist)
  "Scroll other window backward."
  (interactive "P")
  (pop-to-buffer rmail-buffer)
  (unwind-protect
    (scroll-down dist)
    (pop-to-buffer rmail-summary-buffer)))