Commit a76a1d0c authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Ensure Rmail summary is updated after editing a message

* lisp/mail/rmailedit.el (rmail-cease-edit): If this mbox file
has a summary, update the summary after editing.  (Bug#38193)
parent 6f306429
......@@ -149,6 +149,7 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
(declare-function rmail-summary-enable "rmailsum" ())
(declare-function rmail-summary-update-line "rmailsum" (n))
(defun rmail-cease-edit ()
"Finish editing message; switch back to Rmail proper."
......@@ -340,10 +341,11 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
;; Delete previous body. This must be after all insertions at the end,
;; so the marker for the beginning of the next message isn't messed up.
(delete-region end (point-max)))
(rmail-set-attribute rmail-edited-attr-index t))
;;;??? BROKEN perhaps.
;;; (if (boundp 'rmail-summary-vector)
;;; (aset rmail-summary-vector (1- rmail-current-message) nil))
(rmail-set-attribute rmail-edited-attr-index t)
(if (rmail-summary-exists)
(let ((msgnum rmail-current-message))
(with-current-buffer rmail-summary-buffer
(rmail-summary-update-line msgnum)))))
(rmail-toggle-header (if pruned 1 0))
;; Restore mime display state.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment