From 9320d42195e58b1d72ef546db103d069c6fdc831 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 16 Jul 1993 04:18:46 +0000 Subject: [PATCH] (mail-bury): If selected frame is dedicated, and there are other visible frames, delete this frame. --- lisp/mail/sendmail.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 9fb20e9d810..604272285c3 100644 --- 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. -- 2.39.5