diff options
| author | Joakim Verona | 2012-12-28 15:41:21 +0100 |
|---|---|---|
| committer | Joakim Verona | 2012-12-28 15:41:21 +0100 |
| commit | 16b9f224223b3e9eb0c4b313e4257dacbd3ebe34 (patch) | |
| tree | 0844d057b01cd767b1c9b4e259df281e03080009 | |
| parent | fcd88e2007c813036064ba3e92cbd5185e50a0e1 (diff) | |
| parent | bf48a7151d68707fef532b8b0479d90170535d6d (diff) | |
| download | emacs-16b9f224223b3e9eb0c4b313e4257dacbd3ebe34.tar.gz emacs-16b9f224223b3e9eb0c4b313e4257dacbd3ebe34.zip | |
auto upstream
| -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 | ||