diff options
| author | Richard M. Stallman | 1993-03-03 20:49:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-03-03 20:49:21 +0000 |
| commit | 449783e911271fd1382784168aef1008a5e73c14 (patch) | |
| tree | 3ec87a73c3934707f9997f46a8ab87c3ef245fad | |
| parent | e40c4104bb96c0856c902b2914ea6b95e034dd70 (diff) | |
| download | emacs-449783e911271fd1382784168aef1008a5e73c14.tar.gz emacs-449783e911271fd1382784168aef1008a5e73c14.zip | |
(rmail-get-new-mail): Reset read-only after find-file.
| -rw-r--r-- | lisp/mail/rmail.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index e58a2a8e5c4..d300398361e 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -489,6 +489,7 @@ argument causes us to read a file name and use that file as the inbox." | |||
| 489 | (or (verify-visited-file-modtime (current-buffer)) | 489 | (or (verify-visited-file-modtime (current-buffer)) |
| 490 | (progn | 490 | (progn |
| 491 | (find-file (buffer-file-name)) | 491 | (find-file (buffer-file-name)) |
| 492 | (setq buffer-read-only t) | ||
| 492 | (if (verify-visited-file-modtime (current-buffer)) | 493 | (if (verify-visited-file-modtime (current-buffer)) |
| 493 | (rmail-forget-messages)))) | 494 | (rmail-forget-messages)))) |
| 494 | (rmail-maybe-set-message-counters) | 495 | (rmail-maybe-set-message-counters) |