From 6f60853a511cc75d822fcf1cdf24e70e23d9bc5f Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 24 Apr 2004 16:36:15 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 4 ++++ lisp/mail/sendmail.el | 7 ++++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b9f49fb54be..1b1e433ddf0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2004-04-24 Eli Zaretskii + * mail/sendmail.el (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. + * mail/rmail.el (rmail-mail-new-frame): Doc fix. (rmail-start-mail): Support rmail-mail-new-frame even on terminals that can display only one frame at a time. 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)) -- 2.39.5