diff options
| -rw-r--r-- | lisp/gnus/message.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 54ab86a970d..c66b551c1e4 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -4138,17 +4138,16 @@ It should typically alter the sending method in some way or other." (actions message-exit-actions)) (when (and (message-send arg) (buffer-live-p buf)) - (message-bury buf) (if message-kill-buffer-on-exit - (kill-buffer buf)) + (kill-buffer buf) + ;; Restore the point in the message buffer. + (save-window-excursion + (switch-to-buffer buf) + (set-window-point nil position) + (set-marker position nil)) + (message-bury buf)) (message-do-actions actions) - t) - ;; Restore the point in the message buffer. - (when (buffer-live-p buf) - (save-window-excursion - (switch-to-buffer buf) - (set-window-point nil position) - (set-marker position nil))))) + t))) (defun message-dont-send () "Don't send the message you have been editing. |