From ec5b8815a991f2a5d7d7feb9ef1f28bb7f171287 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Tue, 25 Dec 2001 11:18:39 +0000 Subject: [PATCH] (mh-show-msg): Likewise. (mh-handle-process-error): Use frame-width instead of obsolete screen-width. --- lisp/mail/mh-utils.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el index 9e079656c40..12a078ea9b0 100644 --- a/lisp/mail/mh-utils.el +++ b/lisp/mail/mh-utils.el @@ -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) -- 2.39.2