# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798848751 0
# Node ID 771bd7ddd4ccc44dd4257bef599a860208abdbb4
# Parent  f210b0ee984a428f3812ee07cb125a46e0a8809b
(sc-raw-mode-toggle): Use force-mode-line-update.

diff -r f210b0ee984a -r 771bd7ddd4cc lisp/mail/supercite.el
--- a/lisp/mail/supercite.el	Tue Apr 25 22:25:25 1995 +0000
+++ b/lisp/mail/supercite.el	Tue Apr 25 22:25:51 1995 +0000
@@ -1698,7 +1698,7 @@
   (setq sc-fixup-whitespace-p (not sc-fixup-whitespace-p)
 	sc-auto-fill-region-p (not sc-auto-fill-region-p))
   (sc-set-mode-string)
-  (set-buffer-modified-p (buffer-modified-p)))
+  (force-mode-line-update))
 
 (defun sc-toggle-var (variable)
   "Boolean toggle VARIABLE's value.