From e49ad9a528048397ee8597fc2bd80a246b903269 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 29 Sep 1992 20:39:55 +0000 Subject: [PATCH] (mail-send-and-exit): Do other-buffer before bury-buffer. --- lisp/mail/sendmail.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index ade5734ebf..9630bc873e 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -194,14 +194,15 @@ C-c C-v mail-sent-via (add a sent-via field for each To or CC)." Prefix arg means don't delete this window." (interactive "P") (mail-send) - (bury-buffer (current-buffer)) - (if (and (not arg) - (not (one-window-p)) - (save-excursion - (set-buffer (window-buffer (next-window (selected-window) 'not))) - (eq major-mode 'rmail-mode))) - (delete-window) - (switch-to-buffer (other-buffer (current-buffer))))) + (let ((newbuf (other-buffer (current-buffer)))) + (bury-buffer (current-buffer)) + (if (and (not arg) + (not (one-window-p)) + (save-excursion + (set-buffer (window-buffer (next-window (selected-window) 'not))) + (eq major-mode 'rmail-mode))) + (delete-window) + (switch-to-buffer newbuf)))) (defun mail-send () "Send the message in the current buffer. -- 2.20.1