From 9d43f6f103578fb139ce17ddac5f2c087d03baa7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 6 Feb 2002 15:00:31 +0000 Subject: [PATCH] (rmail-toggle-header): Avoid possibly slow call to rmail-count-screen-lines starting from (point-min). --- lisp/mail/rmail.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 4d3d39d0f0d..2040fa2dad1 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2058,12 +2058,7 @@ otherwise, show it in full." (recenter old-screen-line) (if (and all-headers-visible (not (= (window-start) (point-min)))) - (let ((lines-offscreen (rmail-count-screen-lines - (point-min) - (window-start window)))) - (recenter (min (+ old-screen-line lines-offscreen) - ;; last line of window - (- (window-height) 2)))))))))) + (recenter (- (window-height) 2)))))))) (rmail-highlight-headers)))) (defun rmail-narrow-to-non-pruned-header () -- 2.39.2