From: Karl Heuer 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)))