Mercurial > emacs
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.