From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Apr 1995 22:28:04 +0000 (+0000)
Subject: (mh-set-scan-mode): Use force-mode-line-update.
X-Git-Tag: emacs-19.34~4281
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc9bdc98c921657ecdf75c078fc9dd465f46e270;p=emacs.git

(mh-set-scan-mode): Use force-mode-line-update.
---

diff --git a/lisp/mail/mh-e.el b/lisp/mail/mh-e.el
index 3eadc56cbf9..645d22a80e1 100644
--- a/lisp/mail/mh-e.el
+++ b/lisp/mail/mh-e.el
@@ -63,7 +63,7 @@
 ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
 ;;; Rewritten for GNU Emacs, James Larus 1985.  larus@ginger.berkeley.edu
 ;;; Modified by Stephen Gildea 1988.  gildea@lcs.mit.edu
-(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.6 1995/04/10 00:19:19 kwzh Exp kwzh $")
+(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.7 1995/04/20 23:35:01 kwzh Exp kwzh $")
 
 ;;; Code:
 
@@ -637,7 +637,7 @@ Flush mh-e's state out to MH.  The message at the cursor becomes current."
   (if (get-buffer mh-show-buffer)
       (delete-windows-on mh-show-buffer))
   (setq mh-showing nil)
-  (set-buffer-modified-p (buffer-modified-p)) ;force mode line update
+  (force-mode-line-update)
   (if mh-recenter-summary-p
       (mh-recenter nil)))