diff options
| author | Karl Heuer <[email protected]> | 1995-12-15 21:16:34 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1995-12-15 21:16:34 +0000 |
| commit | c7608a53b0919fd7d55a29d1198f77fb3bbe3a59 (patch) | |
| tree | 13c819ec3072eb7f838c8bfb1cd109dca93dead5 /lisp/mail | |
| parent | 1540e4e9cc1ca84acba6e3aaf848e50c0f0156c7 (diff) | |
(mail-bury): Use window-dedicated-p.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/sendmail.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index f7b1d82e61..809bbfb4b9 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -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) |