/[emacs]/emacs/lisp/mail/mh-utils.el
ViewVC logotype

Diff of /emacs/lisp/mail/mh-utils.el

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

revision 1.30 by pj, Thu Dec 20 18:25:13 2001 UTC revision 1.31 by pj, Tue Dec 25 11:18:39 2001 UTC
# Line 301  Type \"\\[mh-header-display]\" to see th Line 301  Type \"\\[mh-header-display]\" to see th
301              (if (not clean-message-header)              (if (not clean-message-header)
302                  (mh-start-of-uncleaned-message)))                  (mh-start-of-uncleaned-message)))
303          (mh-display-msg msg folder))))          (mh-display-msg msg folder))))
304    (if (not (= (1+ (window-height)) (screen-height))) ;not horizontally split    (if (not (= (1+ (window-height)) (frame-height))) ;not horizontally split
305        (shrink-window (- (window-height) mh-summary-height)))        (shrink-window (- (window-height) mh-summary-height)))
306    (mh-recenter nil)    (mh-recenter nil)
307    (if (not (memq msg mh-seen-list)) (setq mh-seen-list (cons msg mh-seen-list)))    (if (not (memq msg mh-seen-list)) (setq mh-seen-list (cons msg mh-seen-list)))
# Line 970  directory names." Line 970  directory names."
970            (t            (t
971             ;; will error message fit on one line?             ;; will error message fit on one line?
972             (goto-line 2)             (goto-line 2)
973             (if (and (< (buffer-size) (screen-width))             (if (and (< (buffer-size) (frame-width))
974                      (eobp))                      (eobp))
975                 (error "%s"                 (error "%s"
976                        (buffer-substring 1 (progn (goto-char 1)                        (buffer-substring 1 (progn (goto-char 1)

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

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