[Emacs-diffs] Changes to emacs/lisp/mail/rmail.el

[ShengHuo ZHU]

Index: emacs/lisp/mail/rmail.el
diff -c emacs/lisp/mail/rmail.el:1.354 emacs/lisp/mail/rmail.el:1.355
*** emacs/lisp/mail/rmail.el:1.354      Sun Feb  3 06:34:29 2002
--- emacs/lisp/mail/rmail.el    Wed Feb  6 10:00:31 2002
***************
*** 2058,2069 ****
                   (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))))))))))
        (rmail-highlight-headers))))
  
  (defun rmail-narrow-to-non-pruned-header ()
--- 2058,2064 ----
                   (recenter old-screen-line)
                   (if (and all-headers-visible
                            (not (= (window-start) (point-min))))
!                      (recenter (- (window-height) 2))))))))
        (rmail-highlight-headers))))
  
  (defun rmail-narrow-to-non-pruned-header ()