diff options
| author | Richard M. Stallman | 1996-01-25 20:27:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-01-25 20:27:45 +0000 |
| commit | 54feedaa7b34f93c59ec5bc5b02fbaabd3764e4e (patch) | |
| tree | 4ab5471c6ad4ca57827d428c480386f143088dad /lisp | |
| parent | b20d527dec0b09923a947976bb818a554b2ca0ab (diff) | |
| download | emacs-54feedaa7b34f93c59ec5bc5b02fbaabd3764e4e.tar.gz emacs-54feedaa7b34f93c59ec5bc5b02fbaabd3764e4e.zip | |
(mail-bury): Check mail-dedicated-frame frame param.
Diffstat (limited to 'lisp')
| -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." | |||
| 420 | "Bury this mail buffer." | 420 | "Bury this mail buffer." |
| 421 | (let ((newbuf (other-buffer (current-buffer)))) | 421 | (let ((newbuf (other-buffer (current-buffer)))) |
| 422 | (bury-buffer (current-buffer)) | 422 | (bury-buffer (current-buffer)) |
| 423 | (if (and (window-dedicated-p (frame-selected-window)) | 423 | (if (and (or (window-dedicated-p (frame-selected-window)) |
| 424 | (assq 'mail-dedicated-frame (frame-parameters))) | ||
| 424 | (not (null (delq (selected-frame) (visible-frame-list))))) | 425 | (not (null (delq (selected-frame) (visible-frame-list))))) |
| 425 | (delete-frame (selected-frame)) | 426 | (delete-frame (selected-frame)) |
| 426 | (let (rmail-flag summary-buffer) | 427 | (let (rmail-flag summary-buffer) |