Function: feedmail-scroll-buffer

feedmail-scroll-buffer is a byte-compiled function defined in feedmail.el.gz.

Signature

(feedmail-scroll-buffer DIRECTION &optional BUFFY)

Source Code

;; Defined in /usr/src/emacs/lisp/mail/feedmail.el.gz
(defun feedmail-scroll-buffer (direction &optional buffy)
  ;; scrolling fun
  ;; emacs convention is that scroll-up moves text up, window down
  (feedmail-say-debug ">in-> feedmail-scroll-buffer %s" direction)
  (save-selected-window
    (let ((fqm-window (display-buffer (if buffy buffy (current-buffer)))))
      (select-window fqm-window)
      (if (eq direction 'up)
      (if (pos-visible-in-window-p (point-max) fqm-window)
	  ;; originally just (goto-char (point-min)), but
	  ;; pos-visible-in-window-p seems oblivious to that
	  (scroll-down 999999)
	(scroll-up))
      (if (pos-visible-in-window-p (point-min) fqm-window)
	  (scroll-up 999999)
	(scroll-down))))))