(rmail-toggle-header): Avoid possibly slow call to

rmail-count-screen-lines starting from (point-min).

1 files changed, 1 insertions, 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 ()