diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2004-04-24 16:36:15 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2004-04-24 16:36:15 +0000 |
| commit | 6f60853a511cc75d822fcf1cdf24e70e23d9bc5f (patch) | |
| tree | 47c136d8b52268518ea63398bb5d3c2742ddb5ea /lisp/mail/sendmail.el | |
| parent | 8a60950d6ee97101f282989169ba3972c7cb487d (diff) | |
| download | emacs-6f60853a511cc75d822fcf1cdf24e70e23d9bc5f.tar.gz | |
(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.
Diffstat (limited to 'lisp/mail/sendmail.el')
| -rw-r--r-- | lisp/mail/sendmail.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 932f52204c5..d5a85741371 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -714,7 +714,12 @@ Prefix arg means don't delete this window." (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)) |