From: yamaoka <yamaoka>
Date: Tue, 4 Feb 2003 06:02:11 +0000 (+0000)
Subject: Synch to Oort Gnus.
X-Git-Tag: t-gnus-6_15_16-00-quimby~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=58fb3de90eb11c029c7e35638be248677f472c0d;p=elisp%2Fgnus.git-

Synch to Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c5a4251..63a98c1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-02-04  Jesper Harder  <harder@ifa.au.dk>
+
+	* gnus-sum.el (gnus-summary-search-article): Speed up by
+	disabling various visual features while searching.
+	(gnus-summary-recenter): Test gnus-auto-center-summary first.
+
 2003-02-03  Jesper Harder  <harder@ifa.au.dk>
 
 	* spam.el (spam-list-of-checks): Don't quote nil and t in
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index c9637a6..c907923 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6117,18 +6117,18 @@ displayed, no centering will be performed."
   ;; Suggested by earle@mahendo.JPL.NASA.GOV (Greg Earle).
   ;; Recenter only when requested.  Suggested by popovich@park.cs.columbia.edu.
   (interactive)
-  (let* ((top (cond ((< (window-height) 4) 0)
-		    ((< (window-height) 7) 1)
-		    (t (if (numberp gnus-auto-center-summary)
-			   gnus-auto-center-summary
-			 2))))
-	 (height (1- (window-height)))
-	 (bottom (save-excursion (goto-char (point-max))
-				 (forward-line (- height))
-				 (point)))
-	 (window (get-buffer-window (current-buffer))))
-    ;; The user has to want it.
-    (when gnus-auto-center-summary
+  ;; The user has to want it.
+  (when gnus-auto-center-summary
+    (let* ((top (cond ((< (window-height) 4) 0)
+		      ((< (window-height) 7) 1)
+		      (t (if (numberp gnus-auto-center-summary)
+			     gnus-auto-center-summary
+			   2))))
+	   (height (1- (window-height)))
+	   (bottom (save-excursion (goto-char (point-max))
+				   (forward-line (- height))
+				   (point)))
+	   (window (get-buffer-window (current-buffer))))
       (when (get-buffer-window gnus-article-buffer)
 	;; Only do recentering when the article buffer is displayed,
 	;; Set the window start to either `bottom', which is the biggest
@@ -8310,6 +8310,12 @@ Optional argument BACKWARD means do search for backward.
 	(gnus-use-article-prefetch nil)
 	(gnus-xmas-force-redisplay nil)	;Inhibit XEmacs redisplay.
 	(gnus-use-trees nil)		;Inhibit updating tree buffer.
+	(gnus-visual nil)
+	(gnus-keep-backlog nil)
+	(gnus-break-pages nil)
+	(gnus-summary-display-arrow nil)
+	(gnus-updated-mode-lines nil)
+	(gnus-auto-center-summary nil)
 	(sum (current-buffer))
 	(found nil)
 	point treated)