/[emacs]/emacs/lisp/mail/rmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.354 by eliz, Sun Feb 3 11:34:29 2002 UTC revision 1.355 by rms, Wed Feb 6 15:00:31 2002 UTC
# Line 2058  otherwise, show it in full." Line 2058  otherwise, show it in full."
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 ()

Legend:
Removed from v.1.354  
changed lines
  Added in v.1.355

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26