From 5aa75bd88999cae8af18bcbe6055881680c8e064 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 29 Nov 2009 23:38:18 +0000 Subject: [PATCH] * 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) --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/gnus-sum.el | 6 +++++- 2 files changed, 11 insertions(+), 1 deletion(-) 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 + + * 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 * 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. -- 2.39.5