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

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

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)