From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 25 Jan 1996 20:27:45 +0000 (+0000)
Subject: (mail-bury): Check mail-dedicated-frame frame param.
X-Git-Tag: emacs-19.34~1491
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=54feedaa7b34f93c59ec5bc5b02fbaabd3764e4e;p=emacs.git

(mail-bury): Check mail-dedicated-frame frame param.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index fc14657c39b..a0f27c14d0a 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -420,7 +420,8 @@ Prefix arg means don't delete this window."
   "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)