Mercurial > emacs
changeset 11573:4ad650d4a65b
(rmail-edit-current-message): Use force-mode-line-update.
(rmail-cease-edit): Use force-mode-line-update.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 25 Apr 1995 22:26:42 +0000 |
| parents | 09d49f6e0af9 |
| children | a956f12b250f |
| files | lisp/mail/rmailedit.el |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailedit.el Tue Apr 25 22:26:16 1995 +0000 +++ b/lisp/mail/rmailedit.el Tue Apr 25 22:26:42 1995 +0000 @@ -63,8 +63,7 @@ (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 @@ (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))))