Commit e32725a7 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mail-bury): Delete the frame

if this frame looks like it was made for this message.
parent 3e7a2d67
2007-09-23 Richard Stallman <rms@gnu.org>
* mail/sendmail.el (mail-bury): Delete the frame
if this frame looks like it was made for this message.
* completion.el (completion-separator-self-insert-command)
(completion-separator-self-insert-autofilling):
If `self-insert-command' has been remapped, use the substitute.
* simple.el (copy-region-as-kill): Doc fix.
* textmodes/org.el (org-confirm-shell-link-function)
(org-confirm-elisp-link-function): Doc fixes.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment