diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-01-25 20:27:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-01-25 20:27:45 +0000 |
| commit | f71e3740283a4117d1a11099bdcb288212a5d008 (patch) | |
| tree | 52d56a2459d75b559c121684f2fb721a2414055d /lisp/mail/sendmail.el | |
| parent | 1a58b2dc0da42e4b8bd2a9c4167470511ac16df2 (diff) | |
| download | emacs-f71e3740283a4117d1a11099bdcb288212a5d008.tar.gz | |
(mail-bury): Check mail-dedicated-frame frame param.
Diffstat (limited to 'lisp/mail/sendmail.el')
| -rw-r--r-- | lisp/mail/sendmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index fc14657c39b..a0f27c14d0a 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -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) |