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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2b83229010dd650f03e3aa2c3c62a9dd0b139ec6..47945169a527dc1853ebf9fe96b2c42add9734ba 100644 (file)
--- 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 f6286c7de87c03261596a18b4522ff9c5b22879c..7450fee69ee024a9cb7ac1cc50cac01069ff28ad 100644 (file)
--- 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))))))