2058 |
(recenter old-screen-line) |
(recenter old-screen-line) |
2059 |
(if (and all-headers-visible |
(if (and all-headers-visible |
2060 |
(not (= (window-start) (point-min)))) |
(not (= (window-start) (point-min)))) |
2061 |
(let ((lines-offscreen (rmail-count-screen-lines |
(recenter (- (window-height) 2)))))))) |
|
(point-min) |
|
|
(window-start window)))) |
|
|
(recenter (min (+ old-screen-line lines-offscreen) |
|
|
;; last line of window |
|
|
(- (window-height) 2)))))))))) |
|
2062 |
(rmail-highlight-headers)))) |
(rmail-highlight-headers)))) |
2063 |
|
|
2064 |
(defun rmail-narrow-to-non-pruned-header () |
(defun rmail-narrow-to-non-pruned-header () |