Commit eb28a312 authored by Bill Wohler's avatar Bill Wohler

* 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.
parent 7895927f
...@@ -146,9 +146,7 @@ displayed." ...@@ -146,9 +146,7 @@ displayed."
(if (not clean-message-header) (if (not clean-message-header)
(mh-start-of-uncleaned-message))) (mh-start-of-uncleaned-message)))
(mh-display-msg msg folder))) (mh-display-msg msg folder)))
(unless (if (fboundp 'window-full-height-p) (unless (mh-window-full-height-p) ; not vertically split
(window-full-height-p)
(= (1+ (window-height)) (frame-height))) ; not vertically split
(shrink-window (- (window-height) (or mh-summary-height (shrink-window (- (window-height) (or mh-summary-height
(mh-summary-height))))) (mh-summary-height)))))
(mh-recenter nil) (mh-recenter nil)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment