[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-art.el
diff -c emacs/lisp/gnus/gnus-art.el:1.86 emacs/lisp/gnus/gnus-art.el:1.87
*** emacs/lisp/gnus/gnus-art.el:1.86    Mon Jul 25 21:35:55 2005
--- emacs/lisp/gnus/gnus-art.el Wed Jul 27 01:46:58 2005
***************
*** 5197,5209 ****
                         1 0)))))))
  
  (defun gnus-article-next-page-1 (lines)
!   (let ((scroll-in-place nil))
      (condition-case ()
!       (scroll-up lines)
        (end-of-buffer
         ;; Long lines may cause an end-of-buffer error.
!        (goto-char (point-max)))))
!   (gnus-article-beginning-of-window))
  
  (defun gnus-article-prev-page (&optional lines)
    "Show previous page of current article.
--- 5197,5213 ----
                         1 0)))))))
  
  (defun gnus-article-next-page-1 (lines)
!   (unless (and (not (featurep 'xemacs))
!              (> (symbol-value 'scroll-margin) 0)
!              (<= (count-lines (window-start) (point-max))
!                  (symbol-value 'scroll-margin)))
      (condition-case ()
!       (let ((scroll-in-place nil))
!         (scroll-up lines))
        (end-of-buffer
         ;; Long lines may cause an end-of-buffer error.
!        (goto-char (point-max))))
!     (gnus-article-beginning-of-window)))
  
  (defun gnus-article-prev-page (&optional lines)
    "Show previous page of current article.
***************
*** 5217,5229 ****
        (gnus-narrow-to-page -1)        ;Go to previous page.
        (goto-char (point-max))
        (recenter -1))
!     (let ((scroll-in-place nil))
!       (prog1
!         (condition-case ()
!             (scroll-down lines)
!           (beginning-of-buffer
!            (goto-char (point-min))))
!       (gnus-article-beginning-of-window)))))
  
  (defun gnus-article-only-boring-p ()
    "Decide whether there is only boring text remaining in the article.
--- 5221,5233 ----
        (gnus-narrow-to-page -1)        ;Go to previous page.
        (goto-char (point-max))
        (recenter -1))
!     (prog1
!       (condition-case ()
!           (let ((scroll-in-place nil))
!             (scroll-down lines))
!         (beginning-of-buffer
!          (goto-char (point-min))))
!       (gnus-article-beginning-of-window))))
  
  (defun gnus-article-only-boring-p ()
    "Decide whether there is only boring text remaining in the article.