* gnus-sum.el (gnus-recenter): Use `recenter-top-bottom'

when it is fboundp in GNU Emacs 23.1.
Put `isearch-scroll' property on `gnus-recenter'. (Bug#4981)

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 567b8f763036e6f70a323a509c787b37682d9a77..0959a051bd60cf513415d45bf714e267b9fe04f8 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2009-11-29  Juri Linkov  <juri@jurta.org>
+
+       * gnus-sum.el (gnus-recenter): Use `recenter-top-bottom'
+       when it is fboundp in GNU Emacs 23.1.  Put `isearch-scroll' property
+       on `gnus-recenter'. (Bug#4981)
+
 2009-11-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * message.el (message-from-style, message-interactive)

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 21a213d4f0240814bf17e0dc1db700a5273f3f27..658193bd5081eb863c7c6ce8ba44754f64e0c27f 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -6721,7 +6721,11 @@ Also do horizontal recentering."
   (when (and gnus-auto-center-summary
             (not (eq gnus-auto-center-summary 'vertical)))
     (gnus-horizontal-recenter))
-  (recenter n))
+  (if (fboundp 'recenter-top-bottom)
+      (recenter-top-bottom n)
+    (recenter n)))
+
+(put 'gnus-recenter 'isearch-scroll t)
 
 (defun gnus-summary-recenter ()
   "Center point in the summary window.