From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Apr 1995 22:26:42 +0000 (+0000)
Subject: (rmail-edit-current-message): Use force-mode-line-update.
X-Git-Tag: emacs-19.34~4285
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cde6342073b965097a827f7ae155c178cb9751fd;p=emacs.git

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

diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 92c4e1bf544..b2cf93d2338 100644
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -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))))