diff options
| author | Martin Rudalics | 2012-12-28 15:35:33 +0100 |
|---|---|---|
| committer | Martin Rudalics | 2012-12-28 15:35:33 +0100 |
| commit | bf48a7151d68707fef532b8b0479d90170535d6d (patch) | |
| tree | 7ab128e82a6975837d72ff5a6f1c220e615e60a0 | |
| parent | b9989bfa7e59b423df76b184e657b66017f72ff9 (diff) | |
| download | emacs-bf48a7151d68707fef532b8b0479d90170535d6d.tar.gz emacs-bf48a7151d68707fef532b8b0479d90170535d6d.zip | |
Simplify and fix last fix of rmail-maybe-display-summary.
| -rw-r--r-- | lisp/mail/rmail.el | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index dbda8a6e26d..ec35cc59b26 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -4224,17 +4224,15 @@ This has an effect only if a summary buffer exists." | |||
| 4224 | 4224 | ||
| 4225 | ;; Put the summary buffer back on the screen, if user wants that. | 4225 | ;; Put the summary buffer back on the screen, if user wants that. |
| 4226 | (defun rmail-maybe-display-summary () | 4226 | (defun rmail-maybe-display-summary () |
| 4227 | (let (window size) | 4227 | ;; If requested, make sure the summary is displayed. |
| 4228 | ;; If requested, make sure the summary is displayed. | 4228 | (when (and rmail-summary-buffer (buffer-name rmail-summary-buffer) |
| 4229 | (and rmail-summary-buffer (buffer-name rmail-summary-buffer) | 4229 | rmail-redisplay-summary) |
| 4230 | rmail-redisplay-summary | 4230 | (display-buffer |
| 4231 | (setq window | 4231 | rmail-summary-buffer |
| 4232 | (display-buffer | 4232 | `(nil |
| 4233 | rmail-summary-buffer '(nil (reusable-frames . visible)))) | 4233 | (reusable-frames . 0) |
| 4234 | rmail-summary-window-size | 4234 | ,(when rmail-summary-window-size |
| 4235 | (setq size (- rmail-summary-window-size (window-height window))) | 4235 | `(window-height . ,rmail-summary-window-size)))))) |
| 4236 | (window--resizable-p window size) | ||
| 4237 | (window-resize window size)))) | ||
| 4238 | 4236 | ||
| 4239 | ;;;; *** Rmail Local Fontification *** | 4237 | ;;;; *** Rmail Local Fontification *** |
| 4240 | 4238 | ||