Commit c7608a53 authored by Karl Heuer's avatar Karl Heuer
Browse files

(mail-bury): Use window-dedicated-p.

parent 1540e4e9
......@@ -405,8 +405,7 @@ Prefix arg means don't delete this window."
"Bury this mail buffer."
(let ((newbuf (other-buffer (current-buffer))))
(bury-buffer (current-buffer))
(if (and (fboundp 'frame-parameters)
(cdr (assq 'dedicated (frame-parameters)))
(if (and (window-dedicated-p (frame-selected-window))
(not (null (delq (selected-frame) (visible-frame-list)))))
(delete-frame (selected-frame))
(let (rmail-flag summary-buffer)
......
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