diff options
| author | Bill Wohler <wohler@newt.com> | 2011-07-03 17:35:48 -0700 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2011-07-03 17:35:48 -0700 |
| commit | eb28a31248c9eccc0499060284c746bcd38a0c36 (patch) | |
| tree | 31007f575bb2080314723846ddb0e17ef015308b /lisp/mh-e | |
| parent | 7895927f81a08a4e898161c5e04d037738a5dd8f (diff) | |
| download | emacs-eb28a31248c9eccc0499060284c746bcd38a0c36.tar.gz | |
* 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.
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/mh-show.el | 4 |
1 files changed, 1 insertions, 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) |