# HG changeset patch
# User Pavel Jan���k <Pavel@Janik.cz>
# Date 1009279119 0
# Node ID c86cd54b5c505d59647c0675f10488da18046eb5
# Parent  f22bac73642016bd64a782ce181b036295b1fc76
(mh-show-msg): Likewise.
(mh-handle-process-error): Use frame-width instead of obsolete
screen-width.

diff -r f22bac736420 -r c86cd54b5c50 lisp/mail/mh-utils.el
--- 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)