[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.84 emacs/lisp/gnus/gnus-art.el:1.85
*** emacs/lisp/gnus/gnus-art.el:1.84    Fri Jul  8 13:48:33 2005
--- emacs/lisp/gnus/gnus-art.el Fri Jul 22 08:22:40 2005
***************
*** 5160,5166 ****
  If end of article, return non-nil.  Otherwise return nil.
  Argument LINES specifies lines to be scrolled up."
    (interactive "p")
!   (move-to-window-line (max (- -1 scroll-margin) (- -1 (window-body-height))))
    (if (save-excursion
        (end-of-line)
        (and (pos-visible-in-window-p)  ;Not continuation line.
--- 5160,5166 ----
  If end of article, return non-nil.  Otherwise return nil.
  Argument LINES specifies lines to be scrolled up."
    (interactive "p")
!   (gnus-end-of-window)
    (if (save-excursion
        (end-of-line)
        (and (pos-visible-in-window-p)  ;Not continuation line.
***************
*** 5189,5201 ****
        (end-of-buffer
         ;; Long lines may cause an end-of-buffer error.
         (goto-char (point-max)))))
!   (move-to-window-line (min scroll-margin (window-body-height))))
  
  (defun gnus-article-prev-page (&optional lines)
    "Show previous page of current article.
  Argument LINES specifies lines to be scrolled down."
    (interactive "p")
!   (move-to-window-line (min scroll-margin (window-body-height)))
    (if (and gnus-page-broken
           (bobp)
           (not (save-restriction (widen) (bobp)))) ;Real beginning-of-buffer?
--- 5189,5201 ----
        (end-of-buffer
         ;; Long lines may cause an end-of-buffer error.
         (goto-char (point-max)))))
!   (gnus-beginning-of-window))
  
  (defun gnus-article-prev-page (&optional lines)
    "Show previous page of current article.
  Argument LINES specifies lines to be scrolled down."
    (interactive "p")
!   (gnus-beginning-of-window)
    (if (and gnus-page-broken
           (bobp)
           (not (save-restriction (widen) (bobp)))) ;Real beginning-of-buffer?
***************
*** 5209,5215 ****
              (scroll-down lines)
            (beginning-of-buffer
             (goto-char (point-min))))
!       (move-to-window-line (min scroll-margin (window-body-height)))))))
  
  (defun gnus-article-only-boring-p ()
    "Decide whether there is only boring text remaining in the article.
--- 5209,5215 ----
              (scroll-down lines)
            (beginning-of-buffer
             (goto-char (point-min))))
!       (gnus-beginning-of-window)))))
  
  (defun gnus-article-only-boring-p ()
    "Decide whether there is only boring text remaining in the article.