(gnus-narrow-to-page): Don't hardcode point-min.

2 files changed, 12 insertions, 10 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2b83229010d..47945169a52 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,8 +1,11 @@
+2004-12-08  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * gnus-art.el (gnus-narrow-to-page): Don't hardcode point-min.
+
 2004-12-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
         * message.el (message-forward-make-body-mml): Remove headers
-        according to message-forward-ignored-headers if a message is
-        decoded.
+        according to message-forward-ignored-headers if a message is decoded.
 
 2004-12-02  Romain Francoise  <romain@orebokech.com>
 
@@ -60,17 +63,16 @@
 
 2004-11-25  Reiner Steib  <Reiner.Steib@gmx.de>
 
-        * message.el (message-forbidden-properties): Fixed typo in doc
-        string.
+        * message.el (message-forbidden-properties): Fix typo in doc string.
 
 2004-11-25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
-        * message.el (message-strip-forbidden-properties): Bind
-        buffer-read-only (etc) to nil.
+        * message.el (message-strip-forbidden-properties):
+        Bind buffer-read-only (etc) to nil.
 
 2004-11-25  Reiner Steib  <Reiner.Steib@gmx.de>
 
-        * gnus-util.el (gnus-replace-in-string): Added doc string.
+        * gnus-util.el (gnus-replace-in-string): Add doc string.
 
         * nnmail.el (nnmail-split-header-length-limit): Increase to 2048
         to avoid problems when splitting mails with many recipients.
@@ -97,8 +99,8 @@
 
 2004-11-14  Reiner Steib  <Reiner.Steib@gmx.de>
 
-        * gnus-start.el (gnus-convert-old-newsrc): Assign
-        legacy-gnus-agent to 5.10.7.
+        * gnus-start.el (gnus-convert-old-newsrc):
+        Assign legacy-gnus-agent to 5.10.7.
 
 2004-11-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index f6286c7de87..7450fee69ee 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -5066,7 +5066,7 @@ If given a numerical ARG, move forward ARG pages."
           (goto-char (point-min))
           (gnus-insert-prev-page-button)))
       (when (and (gnus-visual-p 'page-marker)
-                 (< (+ (point-max) 2) (buffer-size)))
+                 (< (point-max) (save-restriction (widen) (point-max))))
         (save-excursion
           (goto-char (point-max))
           (gnus-insert-next-page-button))))))