From: Jesper Harder <harder@ifa.au.dk>
Date: Mon, 28 Apr 2003 00:16:32 +0000 (+0000)
Subject: (gnus-article-goto-next-page)
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=3379881f928b080bb08f5d8080425ceb0caff0cc;p=gnus

(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 7e9322428..412f62e38 100644
--- 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 5e831870f..c2dcacacd 100644
--- 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.