# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 771279653 0
# Node ID 6cc0db90bcc3eafc5891ebd2c2e1c6f8a45504d2
# Parent  44cfbd972eddfce009b22d6fb802c049e7f6adb4
(mail-bury): If showing rmail buffer that has summary, show the summary too.

diff -r 44cfbd972edd -r 6cc0db90bcc3 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Tue Jun 07 18:31:56 1994 +0000
+++ b/lisp/mail/sendmail.el	Fri Jun 10 20:20:53 1994 +0000
@@ -324,13 +324,22 @@
 	     (cdr (assq 'dedicated (frame-parameters)))
 	     (not (null (delq (selected-frame) (visible-frame-list)))))
 	(delete-frame (selected-frame))
-      (if (and (not arg)
-	       (not (one-window-p))
-	       (save-excursion
-		 (set-buffer (window-buffer (next-window (selected-window) 'not)))
-		 (eq major-mode 'rmail-mode)))
-	  (delete-window)
-	(switch-to-buffer newbuf)))))
+      (let (rmail-flag summary-buffer)
+	(and (not arg)
+	     (not (one-window-p))
+	     (save-excursion
+	       (set-buffer (window-buffer (next-window (selected-window) 'not)))
+	       (setq rmail-flag (eq major-mode 'rmail-mode))
+	       (setq summary-buffer
+		     (and rmail-summary-buffer
+			  (buffer-name rmail-summary-buffer)
+			  (not (get-buffer-window rmail-summary-buffer))
+			  rmail-summary-buffer))))
+	(if rmail-flag
+	    ;; If the Rmail buffer has a summary, show that.
+	    (if summary-buffer (switch-to-buffer summary-buffer)
+	      (delete-window))
+	  (switch-to-buffer newbuf))))))
 
 (defun mail-send ()
   "Send the message in the current buffer.