🚀 go-pugleaf

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)))