Commit 9d43f6f1 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

rmail-count-screen-lines starting from (point-min).
parent 4103b337
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment