# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1082824496 0
# Node ID af2c1ea381f40a95210487ab7235c65ff8d13568
# Parent  c58efa90d5a650b2b233f9bd2ca4aa8ce496758d
(mail-bury): Don't delete the frame where the
mail was being composed if the terminal cannot display more than
one frame; instead, switch to previous frame.

diff -r c58efa90d5a6 -r af2c1ea381f4 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sat Apr 24 08:57:31 2004 +0000
+++ b/lisp/mail/sendmail.el	Sat Apr 24 16:34:56 2004 +0000
@@ -714,7 +714,12 @@
     (if (and (or (window-dedicated-p (frame-selected-window))
 		 (cdr (assq 'mail-dedicated-frame (frame-parameters))))
 	     (not (null (delq (selected-frame) (visible-frame-list)))))
-	(delete-frame (selected-frame))
+	(progn
+	  (if (display-multi-frame-p)
+	      (delete-frame (selected-frame))
+	    ;; The previous frame is where normally they have the
+	    ;; RMAIL buffer displayed.
+	    (other-frame -1)))
       (let (rmail-flag summary-buffer)
 	(and (not arg)
 	     (not (one-window-p))