Mercurial > emacs
changeset 84814:d2ce910aed7e
(mail-bury): Delete the frame
if this frame looks like it was made for this message.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 23 Sep 2007 15:29:42 +0000 |
| parents | 4dde7b21b50b |
| children | 022950ce616a |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Sun Sep 23 15:27:38 2007 +0000 +++ b/lisp/mail/sendmail.el Sun Sep 23 15:29:42 2007 +0000 @@ -767,7 +767,13 @@ "Bury this mail buffer." (let ((newbuf (other-buffer (current-buffer)))) (bury-buffer (current-buffer)) - (if (and (or (window-dedicated-p (frame-selected-window)) + (if (and (or nil + ;; In this case, we need to go to a different frame. + (window-dedicated-p (frame-selected-window)) + ;; In this mode of operation, the frame was probably + ;; made for this buffer, so the user probably wants + ;; to delete it now. + (and pop-up-frames (one-window-p)) (cdr (assq 'mail-dedicated-frame (frame-parameters)))) (not (null (delq (selected-frame) (visible-frame-list))))) (progn