Commit cde63420 authored by Karl Heuer's avatar Karl Heuer
Browse files

(rmail-edit-current-message): Use force-mode-line-update.

(rmail-cease-edit): Use force-mode-line-update.
parent 7911ecc8
......@@ -63,8 +63,7 @@ to return to regular RMAIL:
(make-local-variable 'rmail-old-text)
(setq rmail-old-text (buffer-substring (point-min) (point-max)))
(setq buffer-read-only nil)
(set-buffer-modified-p (buffer-modified-p))
;; Make mode line update.
(force-mode-line-update)
(if (and (eq (key-binding "\C-c\C-c") 'rmail-cease-edit)
(eq (key-binding "\C-c\C-]") 'rmail-abort-edit))
(message "Editing: Type C-c C-c to return to Rmail, C-c C-] to abort")
......@@ -87,8 +86,7 @@ to return to regular RMAIL:
(set-marker (aref rmail-message-vector (1+ rmail-current-message))
(point)))
(let ((old rmail-old-text))
;; Update the mode line.
(set-buffer-modified-p (buffer-modified-p))
(force-mode-line-update)
(rmail-mode-1)
(if (and (= (length old) (- (point-max) (point-min)))
(string= old (buffer-substring (point-min) (point-max))))
......
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