(gnus-article-goto-next-page)

(gnus-article-goto-prev-page): Revert 2003-02-12 change to make
gnus-pick-mode work.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7e93224..412f62e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-04-28  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-art.el (gnus-article-goto-next-page)
+       (gnus-article-goto-prev-page): Revert 2003-02-12 change to make
+       gnus-pick-mode work.
+
 2003-04-28  Steve Youngs  <youngs@xemacs.org>
 
        * Makefile.in (FLAGS): Use @FLAGS@.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 5e83187..c2dcaca 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4903,14 +4903,31 @@ If given a numerical ARG, move forward ARG pages."
 (defun gnus-article-goto-next-page ()
   "Show the next page of the article."
   (interactive)
-  (gnus-eval-in-buffer-window gnus-summary-buffer
-    (gnus-summary-next-page)))
+  (when (gnus-article-next-page)
+    (goto-char (point-min))
+    (gnus-article-read-summary-keys nil (gnus-character-to-event ?n))))
+
 
 (defun gnus-article-goto-prev-page ()
   "Show the next page of the article."
   (interactive)
-  (gnus-eval-in-buffer-window gnus-summary-buffer
-    (gnus-summary-prev-page)))
+  (if (bobp)
+      (gnus-article-read-summary-keys nil (gnus-character-to-event ?p))
+    (gnus-article-prev-page nil)))
+
+;; This is cleaner but currently breaks `gnus-pick-mode':
+;;
+;; (defun gnus-article-goto-next-page ()
+;;   "Show the next page of the article."
+;;   (interactive)
+;;   (gnus-eval-in-buffer-window gnus-summary-buffer
+;;     (gnus-summary-next-page)))
+;;
+;; (defun gnus-article-goto-prev-page ()
+;;   "Show the next page of the article."
+;;   (interactive)
+;;   (gnus-eval-in-buffer-window gnus-summary-buffer
+;;     (gnus-summary-prev-page)))
 
 (defun gnus-article-next-page (&optional lines)
   "Show the next page of the current article.