From: Juri Linkov <juri@jurta.org>
Date: Sun, 29 Nov 2009 23:38:18 +0000 (+0000)
Subject: * gnus-sum.el (gnus-recenter): Use `recenter-top-bottom'
X-Git-Tag: emacs-pretest-23.1.90~172
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5aa75bd88999cae8af18bcbe6055881680c8e064;p=emacs.git
* 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 567b8f76303..0959a051bd6 100644
--- 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 21a213d4f02..658193bd508 100644
--- 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.