(after-find-file): Don't print a message ``New file''

if WARN is nil.

diff --git a/lisp/files.el b/lisp/files.el
index e0277befbc1c87f41cd789ec39cfa57bead95e71..b4e30207bfc68766210d97ed062c0d6f76e18ba6 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1263,7 +1263,7 @@ unless NOMODES is non-nil."
                       (format "%s has auto save data; consider M-x recover-file"
                               (file-name-nondirectory buffer-file-name))
                     (setq not-serious t)
-                    (if error "(New file)" nil)))
+                    (if (and warn error) "(New file)" nil)))
                  ((not error)
                   (setq not-serious t)
                   "Note: file is write protected")