From: Bill Wohler <wohler@newt.com>
Date: Mon, 4 Jul 2011 00:35:48 +0000 (-0700)
Subject: * mh-compat.el (mh-window-full-height-p): Add compatibility function
X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~209
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb28a31248c9eccc0499060284c746bcd38a0c36;p=emacs.git

* mh-compat.el (mh-window-full-height-p): Add compatibility function
for XEmacs.
* mh-show.el (mh-show-msg): Use it, and avoid compiler warning on
XEmacs.
---

diff --git a/lisp/mh-e/mh-show.el b/lisp/mh-e/mh-show.el
index 5c2f08cefe5..7b5593ba608 100644
--- a/lisp/mh-e/mh-show.el
+++ b/lisp/mh-e/mh-show.el
@@ -146,9 +146,7 @@ displayed."
             (if (not clean-message-header)
                 (mh-start-of-uncleaned-message)))
         (mh-display-msg msg folder)))
-    (unless (if (fboundp 'window-full-height-p)
-                (window-full-height-p)
-              (= (1+ (window-height)) (frame-height))) ; not vertically split
+    (unless (mh-window-full-height-p) ; not vertically split
       (shrink-window (- (window-height) (or mh-summary-height
                                             (mh-summary-height)))))
     (mh-recenter nil)