# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798848884 0
# Node ID 5a94d8168bdb15a86bb5aef50a4c142af54f8a22
# Parent  f0906608aa635c69a9228ada00ab3b7c4fd3f4cb
(mh-set-scan-mode): Use force-mode-line-update.

diff -r f0906608aa63 -r 5a94d8168bdb lisp/mail/mh-e.el
--- a/lisp/mail/mh-e.el	Tue Apr 25 22:27:45 1995 +0000
+++ b/lisp/mail/mh-e.el	Tue Apr 25 22:28:04 1995 +0000
@@ -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 @@
   (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)))