diff options
| author | Richard M. Stallman | 1992-09-29 20:39:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-09-29 20:39:55 +0000 |
| commit | e49ad9a528048397ee8597fc2bd80a246b903269 (patch) | |
| tree | ea8effbfdb166eb4abcdca1c2b4ec1c75b2cf135 | |
| parent | 234a804bca326994adc2d83f01d064ee642228f9 (diff) | |
| download | emacs-e49ad9a528048397ee8597fc2bd80a246b903269.tar.gz emacs-e49ad9a528048397ee8597fc2bd80a246b903269.zip | |
(mail-send-and-exit): Do other-buffer before bury-buffer.
| -rw-r--r-- | lisp/mail/sendmail.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index ade5734ebf7..9630bc873ee 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)." | |||
| 194 | Prefix arg means don't delete this window." | 194 | Prefix arg means don't delete this window." |
| 195 | (interactive "P") | 195 | (interactive "P") |
| 196 | (mail-send) | 196 | (mail-send) |
| 197 | (bury-buffer (current-buffer)) | 197 | (let ((newbuf (other-buffer (current-buffer)))) |
| 198 | (if (and (not arg) | 198 | (bury-buffer (current-buffer)) |
| 199 | (not (one-window-p)) | 199 | (if (and (not arg) |
| 200 | (save-excursion | 200 | (not (one-window-p)) |
| 201 | (set-buffer (window-buffer (next-window (selected-window) 'not))) | 201 | (save-excursion |
| 202 | (eq major-mode 'rmail-mode))) | 202 | (set-buffer (window-buffer (next-window (selected-window) 'not))) |
| 203 | (delete-window) | 203 | (eq major-mode 'rmail-mode))) |
| 204 | (switch-to-buffer (other-buffer (current-buffer))))) | 204 | (delete-window) |
| 205 | (switch-to-buffer newbuf)))) | ||
| 205 | 206 | ||
| 206 | (defun mail-send () | 207 | (defun mail-send () |
| 207 | "Send the message in the current buffer. | 208 | "Send the message in the current buffer. |