# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731191761 0
# Node ID 3f64e7ba7fdd999df35a81fbfc5c00bbfbd8ef8e
# Parent  9b80d7737d2b50ec0bbeab972529baf61aa72cfe
(rmail-get-new-mail): Reset read-only after find-file.

diff -r 9b80d7737d2b -r 3f64e7ba7fdd lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Wed Mar 03 09:03:06 1993 +0000
+++ b/lisp/mail/rmail.el	Wed Mar 03 20:49:21 1993 +0000
@@ -489,6 +489,7 @@
   (or (verify-visited-file-modtime (current-buffer))
       (progn
 	(find-file (buffer-file-name))
+	(setq buffer-read-only t)
 	(if (verify-visited-file-modtime (current-buffer))
 	    (rmail-forget-messages))))
   (rmail-maybe-set-message-counters)