Mercurial > emacs

changeset 825:f3eb45ffe06d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Tue, 21 Jul 1992 02:48:51 +0000
parents b7ba8d69e136
children e9b9a1cff2c9
files lisp/mail/sendmail.el
diffstat 1 files changed, 7 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Tue Jul 21 00:00:36 1992 +0000
+++ b/lisp/mail/sendmail.el	Tue Jul 21 02:48:51 1992 +0000
@@ -194,9 +194,13 @@
   (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.