From eb28a31248c9eccc0499060284c746bcd38a0c36 Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Sun, 3 Jul 2011 17:35:48 -0700 Subject: [PATCH] * 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. --- lisp/mh-e/mh-show.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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) -- 2.11.4.GIT