(rmail): Prevent find-file from calling

rmail-mode for a new buffer.  Do it later, instead.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 0f3063769a8d3fd6769ac3e9527db421fbcdd668..5d6889a1b5ad594ed48ff3938ef2ce9e312b1663 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -511,7 +511,8 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
                   (eq major-mode 'rmail-mode))
              (progn (rmail-forget-messages)
                     (rmail-set-message-counters))))
-      (find-file file-name))
+      (let ((enable-local-variables nil))
+       (find-file file-name)))
     (if (eq major-mode 'rmail-edit-mode)
        (error "Exit Rmail Edit mode before getting new mail"))
     (if (and existed (> (buffer-size) 0))
@@ -528,16 +529,14 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
       (if (and rmail-enable-multibyte
               (not enable-multibyte-characters))
          (set-buffer-multibyte t))
-      (goto-char (point-max))
-      (if (null rmail-inbox-list)
-         (progn
-           (rmail-set-message-counters)
-           (rmail-show-message)
-           (setq msg-shown t))))
+      (goto-char (point-max)))
+    ;; Unconditionally rescan to find all the messages.
+    ;; It is useful to have M-x rmail as a way to do that.
+    (rmail-set-message-counters)
     (unwind-protect
-       (or (and (null file-name-arg)
-                (rmail-get-new-mail))
-           (or msg-shown (rmail-show-message (rmail-first-unseen-message))))
+       (unless (and (not file-name-arg)
+                    (rmail-get-new-mail))
+         (rmail-show-message (rmail-first-unseen-message)))
       (progn
        (if rmail-display-summary (rmail-summary))
        (rmail-construct-io-menu)