Changes committed gnus/lisp (ChangeLog gnus-sum.el lpath.el)

Modified: ChangeLog gnus-sum.el lpath.el

2009-11-30  Katsumi Yamaoka  <[email protected]>

	* lpath.el: Fbind recenter-top-bottom for Emacs 21, 22, and (S)XEmacs.

2009-11-29  Juri Linkov  <[email protected]>

	* 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)


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2037 gnus/lisp/ChangeLog:7.2038
--- ChangeLog:7.2037	Sun Nov 29 23:41:04 2009
+++ ChangeLog	Mon Nov 30 10:36:17 2009
@@ -1,3 +1,13 @@
+2009-11-30  Katsumi Yamaoka  <[email protected]>
+
+	* lpath.el: Fbind recenter-top-bottom for Emacs 21, 22, and (S)XEmacs.
+
+2009-11-29  Juri Linkov  <[email protected]>
+
+	* 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-26  Kevin Ryde  <[email protected]>
 
 	* sha1.el (sha1-string-external): default-directory "/" in case
Index: gnus-sum.el
diff -u gnus/lisp/gnus-sum.el:7.244 gnus/lisp/gnus-sum.el:7.245
--- gnus-sum.el:7.244	Tue Oct 20 07:12:07 2009
+++ gnus-sum.el	Mon Nov 30 10:36:17 2009
@@ -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.
Index: lpath.el
diff -u gnus/lisp/lpath.el:7.55 gnus/lisp/lpath.el:7.56
--- lpath.el:7.55	Fri Oct 16 09:05:30 2009
+++ lpath.el	Mon Nov 30 10:36:17 2009
@@ -20,9 +20,10 @@
     (maybe-fbind
      '(Info-index
        Info-index-next Info-menu bbdb-complete-name display-time-event-handler
-       epg-check-configuration find-coding-system frame-device w3-do-setup
-       rmail-swap-buffers-maybe w3-prepare-buffer w3-region w32-focus-frame
-       w3m-detect-meta-charset w3m-region))
+       epg-check-configuration find-coding-system frame-device
+       recenter-top-bottom rmail-swap-buffers-maybe w3-do-setup
+       w3-prepare-buffer w3-region w32-focus-frame w3m-detect-meta-charset
+       w3m-region))
     (maybe-bind
      '(w3m-link-map)))
 
@@ -63,10 +64,11 @@
      mail-abbrevs-setup make-mode-line-mouse-map make-network-process
      mouse-minibuffer-check mouse-movement-p mouse-scroll-subr
      pgg-display-output-buffer posn-point posn-window put-image read-event
-     rmail-msg-restore-non-pruned-header rmail-swap-buffers-maybe
-     select-safe-coding-system sort-coding-systems track-mouse ucs-to-char
-     url-generic-parse-url url-http-file-exists-p url-insert-file-contents
-     vcard-pretty-print w3m-detect-meta-charset w3m-region window-edges))
+     recenter-top-bottom rmail-msg-restore-non-pruned-header
+     rmail-swap-buffers-maybe select-safe-coding-system sort-coding-systems
+     track-mouse ucs-to-char url-generic-parse-url url-http-file-exists-p
+     url-insert-file-contents vcard-pretty-print w3m-detect-meta-charset
+     w3m-region window-edges))
   (maybe-bind
    '(adaptive-fill-first-line-regexp
      buffer-display-table cursor-in-non-selected-windows