# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 972399974 0
# Node ID 5fea5d3d935b19fe0156702ed385b62013e62889
# Parent  130ac4062989e2f5c64c85a7c6c2c7751639750e
(after-find-file): Don't print a message ``New file''
if WARN is nil.

diff -r 130ac4062989 -r 5fea5d3d935b lisp/files.el
--- a/lisp/files.el	Tue Oct 24 14:45:36 2000 +0000
+++ b/lisp/files.el	Tue Oct 24 15:06:14 2000 +0000
@@ -1263,7 +1263,7 @@
 		       (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")