Mercurial > emacs

diff lisp/mail/sendmail.el @ 14369:8d779463ec36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-bury): Check mail-dedicated-frame frame param.
author Richard M. Stallman <rms@gnu.org>
date Thu, 25 Jan 1996 20:27:45 +0000
parents 64be2e6b8094
children 0d9970f055dd
line wrap: on
line diff
--- 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)