branch: elpa/vm
commit 1e96a3c67baa0c6e7015a3fb2957845488d05da0
Merge: 47f60c5f14 83b307a832
Author: Mark Diekhans <ma...@ucsc.edu>
Commit: Mark Diekhans <ma...@ucsc.edu>
Merge branch 'main' into 'main'
fixed thread display causes by not correcly save current point (fixes #492)
Closes #492
See merge request emacs-vm/vm!39
---
lisp/vm-message.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/lisp/vm-message.el b/lisp/vm-message.el
index 5c88edc78a..d3e24dfac6 100644
--- a/lisp/vm-message.el
+++ b/lisp/vm-message.el
@@ -728,11 +728,12 @@ works in all VM buffers."
(defun vm-find-and-set-text-of (m)
(with-current-buffer (vm-buffer-of m)
- (save-restriction
- (widen)
- (goto-char (vm-headers-of m))
- (search-forward "\n\n" (vm-text-end-of m) 0)
- (vm-set-text-of m (point-marker)))))
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (vm-headers-of m))
+ (search-forward "\n\n" (vm-text-end-of m) 0)
+ (vm-set-text-of m (point-marker))))))
(defsubst vm-virtual-message-p (m)
(not (eq m (vm-real-message-of m))))
