/[emacs]/emacs/lisp/gnus/gnus-art.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-art.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.84 by eliz, Fri Jul 8 13:48:33 2005 UTC revision 1.85 by miles, Fri Jul 22 08:22:40 2005 UTC
# Line 5160  If given a numerical ARG, move forward A Line 5160  If given a numerical ARG, move forward A
5160  If end of article, return non-nil.  Otherwise return nil.  If end of article, return non-nil.  Otherwise return nil.
5161  Argument LINES specifies lines to be scrolled up."  Argument LINES specifies lines to be scrolled up."
5162    (interactive "p")    (interactive "p")
5163    (move-to-window-line (max (- -1 scroll-margin) (- -1 (window-body-height))))    (gnus-end-of-window)
5164    (if (save-excursion    (if (save-excursion
5165          (end-of-line)          (end-of-line)
5166          (and (pos-visible-in-window-p)  ;Not continuation line.          (and (pos-visible-in-window-p)  ;Not continuation line.
# Line 5189  Argument LINES specifies lines to be scr Line 5189  Argument LINES specifies lines to be scr
5189        (end-of-buffer        (end-of-buffer
5190         ;; Long lines may cause an end-of-buffer error.         ;; Long lines may cause an end-of-buffer error.
5191         (goto-char (point-max)))))         (goto-char (point-max)))))
5192    (move-to-window-line (min scroll-margin (window-body-height))))    (gnus-beginning-of-window))
5193    
5194  (defun gnus-article-prev-page (&optional lines)  (defun gnus-article-prev-page (&optional lines)
5195    "Show previous page of current article.    "Show previous page of current article.
5196  Argument LINES specifies lines to be scrolled down."  Argument LINES specifies lines to be scrolled down."
5197    (interactive "p")    (interactive "p")
5198    (move-to-window-line (min scroll-margin (window-body-height)))    (gnus-beginning-of-window)
5199    (if (and gnus-page-broken    (if (and gnus-page-broken
5200             (bobp)             (bobp)
5201             (not (save-restriction (widen) (bobp)))) ;Real beginning-of-buffer?             (not (save-restriction (widen) (bobp)))) ;Real beginning-of-buffer?
# Line 5209  Argument LINES specifies lines to be scr Line 5209  Argument LINES specifies lines to be scr
5209                (scroll-down lines)                (scroll-down lines)
5210              (beginning-of-buffer              (beginning-of-buffer
5211               (goto-char (point-min))))               (goto-char (point-min))))
5212          (move-to-window-line (min scroll-margin (window-body-height)))))))          (gnus-beginning-of-window)))))
5213    
5214  (defun gnus-article-only-boring-p ()  (defun gnus-article-only-boring-p ()
5215    "Decide whether there is only boring text remaining in the article.    "Decide whether there is only boring text remaining in the article.

Legend:
Removed from v.1.84  
changed lines
  Added in v.1.85

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26