diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:27:45 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:27:45 +0000 |
| commit | c80ababd858e1d3a6b72afdf80ede17152321ad9 (patch) | |
| tree | 5bb25c4f7063c4a116e1a1ffac52cb55d5ccccfa /lisp/mail/mh-utils.el | |
| parent | a57c6a283a22a4fe3480f240384221b7be15a645 (diff) | |
| download | emacs-c80ababd858e1d3a6b72afdf80ede17152321ad9.tar.gz | |
(mh-set-mode-name): Use force-mode-line-update.
Diffstat (limited to 'lisp/mail/mh-utils.el')
| -rw-r--r-- | lisp/mail/mh-utils.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el index f19e6460d0d..cc06c774cd6 100644 --- a/lisp/mail/mh-utils.el +++ b/lisp/mail/mh-utils.el @@ -25,7 +25,7 @@ ;;; Change Log: -;; $Id: mh-utils.el,v 1.3 1995/04/09 22:29:08 kwzh Exp kwzh $ +;; $Id: mh-utils.el,v 1.4 1995/04/10 00:19:38 kwzh Exp kwzh $ ;;; Code: @@ -619,9 +619,7 @@ Non-nil third argument means not to show the message." (defun mh-set-mode-name (mode-name-string) ;; Set the mode-name and ensure that the mode line is updated. (setq mode-name mode-name-string) - ;; Force redisplay of all buffers' mode lines to be considered. - (save-excursion (set-buffer (other-buffer))) - (set-buffer-modified-p (buffer-modified-p))) + (force-mode-line-update t)) (defun mh-prompt-for-folder (prompt default can-create) |