Mercurial > emacs
changeset 55115:af2c1ea381f4
(mail-bury): Don't delete the frame where the
mail was being composed if the terminal cannot display more than
one frame; instead, switch to previous frame.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 24 Apr 2004 16:34:56 +0000 |
| parents | c58efa90d5a6 |
| children | 4eaffc5a495e |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Sat Apr 24 08:57:31 2004 +0000 +++ b/lisp/mail/sendmail.el Sat Apr 24 16:34:56 2004 +0000 @@ -714,7 +714,12 @@ (if (and (or (window-dedicated-p (frame-selected-window)) (cdr (assq 'mail-dedicated-frame (frame-parameters)))) (not (null (delq (selected-frame) (visible-frame-list))))) - (delete-frame (selected-frame)) + (progn + (if (display-multi-frame-p) + (delete-frame (selected-frame)) + ;; The previous frame is where normally they have the + ;; RMAIL buffer displayed. + (other-frame -1))) (let (rmail-flag summary-buffer) (and (not arg) (not (one-window-p))