mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
rmail-count-screen-lines starting from (point-min).
This commit is contained in:
Richard M. Stallman 2002-02-06 15:00:31 +00:00
parent 4103b3373e
commit 9d43f6f103
1 changed files with 1 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/mail/rmail.el
View file

@ -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 ()