# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 872570222 0
# Node ID e0cd56c5b0ac8d3846e4caf52e04f561afb27b5a
# Parent  e9d8fcec984318850636e126225a0c5e47df70cf
(rmail-mode-1): Update the value for mode-line-modified.

diff -r e9d8fcec9843 -r e0cd56c5b0ac lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Tue Aug 26 03:45:21 1997 +0000
+++ b/lisp/mail/rmail.el	Tue Aug 26 04:37:02 1997 +0000
@@ -836,10 +836,7 @@
   ;; The one exception is when messages are copied into an Rmail mode buffer.
   ;; rmail-output-to-rmail-file enables auto save when you do that.
   (setq buffer-auto-save-file-name nil)
-  (if (boundp 'mode-line-modified)
-      (setq mode-line-modified "--- ")
-    (setq mode-line-format
-	  (cons "--- " (cdr (default-value 'mode-line-format)))))
+  (setq mode-line-modified "--")
   (use-local-map rmail-mode-map)
   (set-syntax-table text-mode-syntax-table)
   (setq local-abbrev-table text-mode-abbrev-table))