diff lisp/gnus/gnus-sum.el @ 106317:c5e66d596cbf

* 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)
author Juri Linkov <juri@jurta.org>
date Sun, 29 Nov 2009 23:38:18 +0000
parents eb7471ca2f53
children c0641205dcbb
line wrap: on
line diff
--- a/lisp/gnus/gnus-sum.el	Sun Nov 29 23:34:05 2009 +0000
+++ b/lisp/gnus/gnus-sum.el	Sun Nov 29 23:38:18 2009 +0000
@@ -6721,7 +6721,11 @@
   (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.