Mercurial > emacs
changeset 42323:c86cd54b5c50
(mh-show-msg): Likewise.
(mh-handle-process-error): Use frame-width instead of obsolete
screen-width.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Tue, 25 Dec 2001 11:18:39 +0000 |
| parents | f22bac736420 |
| children | e6593c956da9 |
| files | lisp/mail/mh-utils.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mh-utils.el Tue Dec 25 11:16:02 2001 +0000 +++ b/lisp/mail/mh-utils.el Tue Dec 25 11:18:39 2001 +0000 @@ -301,7 +301,7 @@ (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 @@ (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)