[Emacs-diffs] /srv/bzr/emacs/trunk r111359: Rewrite rmail-maybe-display-summary (Bug#13066).

[martin rudalics]

------------------------------------------------------------
revno: 111359
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Fri 2012-12-28 11:24:04 +0100
message:
  Rewrite rmail-maybe-display-summary (Bug#13066).
  
  * mail/rmail.el (rmail-maybe-display-summary): Rewrite
  (Bug#13066).
modified:
  lisp/ChangeLog
  lisp/mail/rmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-28 09:49:59 +0000
+++ b/lisp/ChangeLog    2012-12-28 10:24:04 +0000
@@ -1,3 +1,8 @@
+2012-12-28  Martin Rudalics  <address@hidden>
+
+       * mail/rmail.el (rmail-maybe-display-summary): Rewrite
+       (Bug#13066).
+
 2012-12-28  Andreas Schwab  <address@hidden>
 
        * epg.el (epg--start): Modify process-environment locally.

=== modified file 'lisp/mail/rmail.el'
--- a/lisp/mail/rmail.el        2012-12-10 12:08:02 +0000
+++ b/lisp/mail/rmail.el        2012-12-28 10:24:04 +0000
@@ -4224,31 +4224,17 @@
 
 ;; Put the summary buffer back on the screen, if user wants that.
 (defun rmail-maybe-display-summary ()
-  (let ((selected (selected-window))
-       (buffer (current-buffer))
-       window)
+  (let (window size)
     ;; If requested, make sure the summary is displayed.
     (and rmail-summary-buffer (buffer-name rmail-summary-buffer)
         rmail-redisplay-summary
-        (if (get-buffer-window rmail-summary-buffer 0)
-            ;; It's already in some frame; show that one.
-            (let ((frame (window-frame
-                          (get-buffer-window rmail-summary-buffer 0))))
-              (make-frame-visible frame)
-              (raise-frame frame))
-          (display-buffer rmail-summary-buffer)))
-    ;; If requested, set the height of the summary window.
-    (and rmail-summary-buffer (buffer-name rmail-summary-buffer)
+        (setq window
+              (display-buffer
+               rmail-summary-buffer '(nil (reusable-frames . visible))))
         rmail-summary-window-size
-        (setq window (get-buffer-window rmail-summary-buffer))
-        ;; Don't try to change the size if just one window in frame.
-        (not (eq window (frame-root-window (window-frame window))))
-        (unwind-protect
-            (progn
-              (select-window window)
-              (enlarge-window (- rmail-summary-window-size (window-height))))
-          (select-window selected)
-          (set-buffer buffer)))))
+        (setq size (- rmail-summary-window-size (window-height window)))
+        (window--resizable-p window size)
+        (window-resize window size))))
 
 ;;;; *** Rmail Local Fontification ***