# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 822601665 0
# Node ID 8d779463ec366a44b5c7c3eae405fe52a038b665
# Parent  861f51e090d41f14ff2368c392b96872f8a0e45a
(mail-bury): Check mail-dedicated-frame frame param.

diff -r 861f51e090d4 -r 8d779463ec36 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Thu Jan 25 20:14:38 1996 +0000
+++ b/lisp/mail/sendmail.el	Thu Jan 25 20:27:45 1996 +0000
@@ -420,7 +420,8 @@
   "Bury this mail buffer."
   (let ((newbuf (other-buffer (current-buffer))))
     (bury-buffer (current-buffer))
-    (if (and (window-dedicated-p (frame-selected-window))
+    (if (and (or (window-dedicated-p (frame-selected-window))
+		 (assq 'mail-dedicated-frame (frame-parameters)))
 	     (not (null (delq (selected-frame) (visible-frame-list)))))
 	(delete-frame (selected-frame))
       (let (rmail-flag summary-buffer)