# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798848865 0
# Node ID f0906608aa635c69a9228ada00ab3b7c4fd3f4cb
# Parent  090333911dc8c372bba7eefcab914fbab2080ebb
(mh-set-mode-name): Use force-mode-line-update.

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