From d7a9e63bd617a7941a03f0938c8f8cce4220bb71 Mon Sep 17 00:00:00 2001
From: Chong Yidong <cyd@gnu.org>
Date: Sat, 28 Jan 2012 09:58:27 +0800
Subject: [PATCH] * lisp/mail/rmail.el (rmail-start-mail): Add send-action
 again. (rmail-mail-return): Switch to NEWBUF only if it is non-nil.

Fixes: debbugs:10625
---
 lisp/ChangeLog     |  3 +++
 lisp/mail/rmail.el | 50 +++++++++++++++++++++++++++-------------------
 2 files changed, 33 insertions(+), 20 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d8378ef9838..fb7bdffd426 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-01-28  Chong Yidong  <cyd@gnu.org>
 
+	* mail/rmail.el (rmail-start-mail): Add send-action again (Bug#10625).
+	(rmail-mail-return): Switch to NEWBUF only if it is non-nil.
+
 	* cus-edit.el (custom-buffer-create-internal): Fix search button
 	action (Bug#10542).
 
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 2a8140dd972..813912f2e9b 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3584,15 +3584,18 @@ does not pop any summary buffer."
     (if (stringp subject) (setq subject (rfc2047-decode-string subject)))
     (prog1
 	(compose-mail to subject other-headers noerase
-		      switch-function yank-action sendactions)
+		      switch-function yank-action sendactions
+		      `(rmail-mail-return ,replybuffer))
       (if (eq switch-function 'switch-to-buffer-other-frame)
 	  ;; This is not a standard frame parameter; nothing except
 	  ;; sendmail.el looks at it.
-	    (modify-frame-parameters (selected-frame)
+	  (modify-frame-parameters (selected-frame)
 				   '((mail-dedicated-frame . t)))))))
 
 (defun rmail-mail-return (&optional newbuf)
-  "NEWBUF is a buffer to switch to."
+  "Try to return to Rmail from the mail window.
+If optional argument NEWBUF is specified, it is the Rmail buffer
+to switch to."
   (cond
    ;; If there is only one visible frame with no special handling,
    ;; consider deleting the mail window to return to Rmail.
@@ -3602,23 +3605,30 @@ does not pop any summary buffer."
 		 (cdr (assq 'mail-dedicated-frame
 			    (frame-parameters))))))
     (let (rmail-flag summary-buffer)
-      (and (not (one-window-p))
-	   (with-current-buffer
-	       (window-buffer (next-window (selected-window) 'not))
-	     (setq rmail-flag (eq major-mode 'rmail-mode))
-	     (setq summary-buffer
-		   (and (boundp 'mail-bury-selects-summary)
-			mail-bury-selects-summary
-			(boundp 'rmail-summary-buffer)
-			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))))
+      (unless (one-window-p)
+	(with-current-buffer
+	    (window-buffer (next-window (selected-window) 'not))
+	  (setq rmail-flag (eq major-mode 'rmail-mode))
+	  (setq summary-buffer
+		(and (boundp 'mail-bury-selects-summary)
+		     mail-bury-selects-summary
+		     (boundp 'rmail-summary-buffer)
+		     rmail-summary-buffer
+		     (buffer-name rmail-summary-buffer)
+		     (not (get-buffer-window rmail-summary-buffer))
+		     rmail-summary-buffer))))
+      (cond ((null rmail-flag)
+	     ;; If the Rmail buffer is not in the next window, switch
+	     ;; directly to the Rmail buffer specified by NEWBUF.
+	     (if newbuf
+		 (switch-to-buffer newbuf)))
+	    ;; If the Rmail buffer is in the next window, switch to
+	    ;; the summary buffer if `mail-bury-selects-summary' is
+	    ;; non-nil.  Otherwise just delete this window.
+	    (summary-buffer
+	     (switch-to-buffer summary-buffer))
+	    (t
+	     (delete-window)))))
    ;; If the frame was probably made for this buffer, the user
    ;; probably wants to delete it now.
    ((display-multi-frame-p)
-- 
2.39.2