Mercurial > emacs

changeset 7833:6cc0db90bcc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-bury): If showing rmail buffer that has summary, show the summary too.
author Richard M. Stallman <rms@gnu.org>
date Fri, 10 Jun 1994 20:20:53 +0000
parents 44cfbd972edd
children fc1c95bf734b
files lisp/mail/sendmail.el
diffstat 1 files changed, 16 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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.