[Emacs-diffs] emacs/lisp/gnus ChangeLog gnus-sum.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/11/29 23:38:19

Modified files:
        lisp/gnus      : ChangeLog gnus-sum.el 

Log message:
        * 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)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.841&r2=1.842
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-sum.el?cvsroot=emacs&r1=1.145&r2=1.146

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.841
retrieving revision 1.842
diff -u -b -r1.841 -r1.842
--- ChangeLog   24 Nov 2009 09:19:09 -0000      1.841
+++ ChangeLog   29 Nov 2009 23:38:18 -0000      1.842
@@ -1,3 +1,9 @@
+2009-11-29  Juri Linkov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * message.el (message-from-style, message-interactive)

Index: gnus-sum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/gnus-sum.el,v
retrieving revision 1.145
retrieving revision 1.146
diff -u -b -r1.145 -r1.146
--- gnus-sum.el 20 Oct 2009 05:12:15 -0000      1.145
+++ gnus-sum.el 29 Nov 2009 23:38:18 -0000      1.146
@@ -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.