diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:28:04 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:28:04 +0000 |
| commit | dc9bdc98c921657ecdf75c078fc9dd465f46e270 (patch) | |
| tree | bb0a3f6da1a509ebd9744dc2726060b4ebef54fe | |
| parent | c80ababd858e1d3a6b72afdf80ede17152321ad9 (diff) | |
| download | emacs-dc9bdc98c921657ecdf75c078fc9dd465f46e270.tar.gz emacs-dc9bdc98c921657ecdf75c078fc9dd465f46e270.tar.bz2 emacs-dc9bdc98c921657ecdf75c078fc9dd465f46e270.zip | |
(mh-set-scan-mode): Use force-mode-line-update.
| -rw-r--r-- | lisp/mail/mh-e.el | 4 |
1 files changed, 2 insertions, 2 deletions
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))) |