mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-06 07:31:13 -08:00
Code Issues Projects Releases Wiki Activity

(mail-bury): Check mail-dedicated-frame frame param.

Browse source
This commit is contained in:
Richard M. Stallman 1996-01-25 20:27:45 +00:00
parent b20d527dec
commit 54feedaa7b
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/mail/sendmail.el
View file

@ -420,7 +420,8 @@ Prefix arg means don't delete this window."
"Bury this mail buffer."
(let ((newbuf (other-buffer (current-buffer))))
(bury-buffer (current-buffer))
(if (and (window-dedicated-p (frame-selected-window))
(if (and (or (window-dedicated-p (frame-selected-window))
(assq 'mail-dedicated-frame (frame-parameters)))
(not (null (delq (selected-frame) (visible-frame-list)))))
(delete-frame (selected-frame))
(let (rmail-flag summary-buffer)