From bf48a7151d68707fef532b8b0479d90170535d6d Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Fri, 28 Dec 2012 15:35:33 +0100 Subject: [PATCH] Simplify and fix last fix of rmail-maybe-display-summary. --- lisp/mail/rmail.el | 20 +++++++++----------- 1 file 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." ;; Put the summary buffer back on the screen, if user wants that. (defun rmail-maybe-display-summary () - (let (window size) - ;; If requested, make sure the summary is displayed. - (and rmail-summary-buffer (buffer-name rmail-summary-buffer) - rmail-redisplay-summary - (setq window - (display-buffer - rmail-summary-buffer '(nil (reusable-frames . visible)))) - rmail-summary-window-size - (setq size (- rmail-summary-window-size (window-height window))) - (window--resizable-p window size) - (window-resize window size)))) + ;; If requested, make sure the summary is displayed. + (when (and rmail-summary-buffer (buffer-name rmail-summary-buffer) + rmail-redisplay-summary) + (display-buffer + rmail-summary-buffer + `(nil + (reusable-frames . 0) + ,(when rmail-summary-window-size + `(window-height . ,rmail-summary-window-size)))))) ;;;; *** Rmail Local Fontification *** -- 2.39.5