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. |
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? |
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. |