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