Commit e49ad9a5 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mail-send-and-exit): Do other-buffer before bury-buffer.

parent 234a804b
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment