*** empty log message ***

* empty log message *
0b0ef30f · Richard M. Stallman · 9ef8b0d6 · 0b0ef30f
Commit 0b0ef30f authored Jul 21, 1992 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 3 deletions

lisp/mail/sendmail.el lisp/mail/sendmail.el +7 -3

No files found.
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -194,9 +194,13 @@ Prefix arg means don't delete this window."
  (interactive "P")
  (mail-send)
  (bury-buffer (current-buffer))
-  (if (or (one-window-p) arg)
-      (switch-to-buffer (other-buffer (current-buffer)))
-    (delete-window)))
+  (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 (other-buffer (current-buffer)))))

 (defun mail-send ()
  "Send the message in the current buffer.