Commit ec5b8815 authored by Pavel Janík's avatar Pavel Janík
Browse files

(mh-show-msg): Likewise.

(mh-handle-process-error): Use frame-width instead of obsolete
screen-width.
parent 2cb48ea3
......@@ -301,7 +301,7 @@ Type \"\\[mh-header-display]\" to see the message with all its headers."
(if (not clean-message-header)
(mh-start-of-uncleaned-message)))
(mh-display-msg msg folder))))
(if (not (= (1+ (window-height)) (screen-height))) ;not horizontally split
(if (not (= (1+ (window-height)) (frame-height))) ;not horizontally split
(shrink-window (- (window-height) mh-summary-height)))
(mh-recenter nil)
(if (not (memq msg mh-seen-list)) (setq mh-seen-list (cons msg mh-seen-list)))
......@@ -970,7 +970,7 @@ directory names."
(t
;; will error message fit on one line?
(goto-line 2)
(if (and (< (buffer-size) (screen-width))
(if (and (< (buffer-size) (frame-width))
(eobp))
(error "%s"
(buffer-substring 1 (progn (goto-char 1)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment