diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-10-06 02:42:29 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-10-06 02:42:29 +0000 |
| commit | eaf9b5643db7dcfcfb3a324f225e19fb14979237 (patch) | |
| tree | a1e25de51008d446ec9de5c745efb5373da46c72 /lisp/mh-e | |
| parent | 25ab03020175918134bf9ba7f63c5e00750baa84 (diff) | |
| download | emacs-eaf9b5643db7dcfcfb3a324f225e19fb14979237.tar.gz | |
Use window-full-height-p.
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/mh-e/mh-show.el | 8 |
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)... |