(mail-bury): If selected frame is dedicated,

and there are other visible frames, delete this frame.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 9fb20e9d810afeb4195f3edcb86a607b3f03a3ae..604272285c3c0f349ff8ddbed80897c49c5705d2 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -298,13 +298,16 @@ Prefix arg means don't delete this window."
   "Bury this mail buffer."
   (let ((newbuf (other-buffer (current-buffer))))
     (bury-buffer (current-buffer))
-    (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))))
+    (if (and (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)))))
 
 (defun mail-send ()
   "Send the message in the current buffer.