diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-09-23 15:32:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-09-23 15:32:17 +0000 |
| commit | e32725a7f4b176c46cbe62a8ba697ecac30205c2 (patch) | |
| tree | fb5fda58d84d340a25c76adcff4e2db8be230b1b /lisp/mail/sendmail.el | |
| parent | 3e7a2d671a56e40c390f40333592dc3bd95296f7 (diff) | |
| download | emacs-e32725a7f4b176c46cbe62a8ba697ecac30205c2.tar.gz | |
(mail-bury): Delete the frame
if this frame looks like it was made for this message.
Diffstat (limited to 'lisp/mail/sendmail.el')
| -rw-r--r-- | lisp/mail/sendmail.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 5803661bc6e..2a986a33f72 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -767,7 +767,13 @@ Prefix arg means don't delete this window." "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 |