diff options
| author | Richard M. Stallman | 1997-08-26 04:37:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-26 04:37:02 +0000 |
| commit | e823bfa3adeb847782d99a5b2300f433c4468f8e (patch) | |
| tree | d5b6a8127d16966f7686372019fb7d2d317274f3 | |
| parent | 71bd46d292c7f3f684bbf38230cbb2472e162e9c (diff) | |
| download | emacs-e823bfa3adeb847782d99a5b2300f433c4468f8e.tar.gz emacs-e823bfa3adeb847782d99a5b2300f433c4468f8e.zip | |
(rmail-mode-1): Update the value for mode-line-modified.
| -rw-r--r-- | lisp/mail/rmail.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 55e2b01719b..26a50cc6045 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -836,10 +836,7 @@ Instead, these commands are available: | |||
| 836 | ;; The one exception is when messages are copied into an Rmail mode buffer. | 836 | ;; The one exception is when messages are copied into an Rmail mode buffer. |
| 837 | ;; rmail-output-to-rmail-file enables auto save when you do that. | 837 | ;; rmail-output-to-rmail-file enables auto save when you do that. |
| 838 | (setq buffer-auto-save-file-name nil) | 838 | (setq buffer-auto-save-file-name nil) |
| 839 | (if (boundp 'mode-line-modified) | 839 | (setq mode-line-modified "--") |
| 840 | (setq mode-line-modified "--- ") | ||
| 841 | (setq mode-line-format | ||
| 842 | (cons "--- " (cdr (default-value 'mode-line-format))))) | ||
| 843 | (use-local-map rmail-mode-map) | 840 | (use-local-map rmail-mode-map) |
| 844 | (set-syntax-table text-mode-syntax-table) | 841 | (set-syntax-table text-mode-syntax-table) |
| 845 | (setq local-abbrev-table text-mode-abbrev-table)) | 842 | (setq local-abbrev-table text-mode-abbrev-table)) |