Skip to content

GitLab

Commit 449783e9 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-get-new-mail): Reset read-only after find-file.

parent e40c4104
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 0 deletions
lisp/mail/rmail.el
View file @ 449783e9
...@@ -489,6 +489,7 @@ argument causes us to read a file name and use that file as the inbox." ...@@ -489,6 +489,7 @@ argument causes us to read a file name and use that file as the inbox."
(or (verify-visited-file-modtime (current-buffer)) (or (verify-visited-file-modtime (current-buffer))
(progn (progn
(find-file (buffer-file-name)) (find-file (buffer-file-name))
(setq buffer-read-only t)
(if (verify-visited-file-modtime (current-buffer)) (if (verify-visited-file-modtime (current-buffer))
(rmail-forget-messages)))) (rmail-forget-messages))))
(rmail-maybe-set-message-counters) (rmail-maybe-set-message-counters)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment