[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5c3d0cf: Fix previous message.el point-restoring fix
From: |
Lars Ingebrigtsen |
Subject: |
master 5c3d0cf: Fix previous message.el point-restoring fix |
Date: |
Mon, 25 Nov 2019 20:41:19 -0500 (EST) |
branch: master
commit 5c3d0cf7910afa6b3fbdba24ac5c5817f268eb0e
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Fix previous message.el point-restoring fix
* lisp/gnus/message.el (message-send-and-exit): Restore window
point before burying buffer so we actually bury the buffer.
---
lisp/gnus/message.el | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 54ab86a..c66b551 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 5c3d0cf: Fix previous message.el point-restoring fix,
Lars Ingebrigtsen <=