Use window-full-height-p.

2 files changed, 9 insertions, 3 deletions

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 585cc0a86c6..3102f74f506 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,7 @@
+2009-10-06  Glenn Morris  <rgm@gnu.org>
+
+        * mh-show.el (mh-show-msg): Use window-full-height-p.
+
 2009-08-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * mh-comp.el (mh-send-letter): default-buffer-file-coding-system
diff --git a/lisp/mh-e/mh-show.el b/lisp/mh-e/mh-show.el
index 70852f0bb05..ba972fc5b62 100644
--- a/lisp/mh-e/mh-show.el
+++ b/lisp/mh-e/mh-show.el
@@ -148,9 +148,11 @@ displayed."
             (if (not clean-message-header)
                 (mh-start-of-uncleaned-message)))
         (mh-display-msg msg folder)))
-    (if (not (= (1+ (window-height)) (frame-height))) ;not horizontally split
-        (shrink-window (- (window-height) (or mh-summary-height
-                                              (mh-summary-height)))))
+    (unless (if (fbound 'window-full-height-p)
+                (window-full-height-p)
+              (= (1+ (window-height)) (frame-height))) ; not vertically split
+      (shrink-window (- (window-height) (or mh-summary-height
+                                            (mh-summary-height)))))
     (mh-recenter nil)
     ;; The following line is a nop which forces update of the scan line so
     ;; that font-lock will update it (if needed)...