Changes committed gnus/lisp (ChangeLog gnus-art.el)

"Katsumi Yamaoka" <[email protected]> Tue, 12 Aug 2008 00:54:25 +0200
Newsgroups gmane.emacs.gnus.commits
Message-ID <[email protected]>
Modified: ChangeLog gnus-art.el

(gnus-article-next-page): Respect `scroll-margin' when moving point to the
 bottom of the window in order to avoid recentering.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1899 gnus/lisp/ChangeLog:7.1900
--- ChangeLog:7.1899	Tue Aug 12 00:54:18 2008
+++ ChangeLog	Tue Aug 12 00:54:25 2008
@@ -1,3 +1,8 @@
+2008-08-11  Ralf Angeli  <[email protected]>
+
+	* gnus-art.el (gnus-article-next-page): Respect `scroll-margin' when
+	moving point to the bottom of the window in order to avoid recentering.
+
 2008-08-11  Katsumi Yamaoka  <[email protected]>
 
 	* lpath.el: Bind scroll-margin for XEmacs 21.4 and SXEmacs.
Index: gnus-art.el
diff -u gnus/lisp/gnus-art.el:7.280 gnus/lisp/gnus-art.el:7.281
--- gnus-art.el:7.280	Tue Aug 12 00:54:18 2008
+++ gnus-art.el	Tue Aug 12 00:54:25 2008
@@ -6113,7 +6113,7 @@
 If end of article, return non-nil.  Otherwise return nil.
 Argument LINES specifies lines to be scrolled up."
   (interactive "p")
-  (move-to-window-line -1)
+  (move-to-window-line (if (featurep 'xemacs) -1 (- -1 scroll-margin)))
   (if (and (not (and gnus-article-over-scroll
 		     (> (count-lines (window-start) (point-max))
 			(if (featurep 'xemacs)