procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix previous message.el point-restoring fix

Browse source 
* lisp/gnus/message.el (message-send-and-exit): Restore window
point before burying buffer so we actually bury the buffer.
This commit is contained in:
Lars Ingebrigtsen 2019-11-26 02:40:59 +01:00
parent c97c7bb222
commit 5c3d0cf791
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/gnus/message.el
View file

@ -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.