Mercurial > emacs

changeset 4107:7b855e27223f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-bury): If selected frame is dedicated, and there are other visible frames, delete this frame.
author Richard M. Stallman <rms@gnu.org>
date Fri, 16 Jul 1993 04:18:46 +0000
parents bfc21ea9a00f
children e4fbcd480455
files lisp/mail/sendmail.el
diffstat 1 files changed, 10 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Thu Jul 15 06:56:17 1993 +0000
+++ b/lisp/mail/sendmail.el	Fri Jul 16 04:18:46 1993 +0000
@@ -298,13 +298,16 @@
   "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.