* autorevert.el (auto-revert-handler): Ensure, that

file-readable-p is applied only for local files or in
auto-revert-tail-mode.

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0e2a791f0e9..c11c60bdd6d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-03-11  Michael Albinus  <michael.albinus@gmx.de>
+
+        * autorevert.el (auto-revert-handler): Ensure, that
+        file-readable-p is applied only for local files or in
+        auto-revert-tail-mode.
+
 2012-03-11  Andreas Schwab  <schwab@linux-m68k.org>
 
         * server.el (server-eval-at): Handle non-tcp connections.  Decode
diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index c0a77bd5935..40cf79a6428 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -439,17 +439,18 @@ This is an internal function used by Auto-Revert Mode."
     (let* ((buffer (current-buffer)) size
            (revert
             (or (and buffer-file-name
-                     (file-readable-p buffer-file-name)
                      (if auto-revert-tail-mode
                          ;; Tramp caches the file attributes.  Setting
                          ;; `remote-file-name-inhibit-cache' forces Tramp
                          ;; to reread the values.
                          (let ((remote-file-name-inhibit-cache t))
+                           (file-readable-p buffer-file-name)
                            (/= auto-revert-tail-pos
                                (setq size
                                      (nth 7 (file-attributes
                                              buffer-file-name)))))
                        (and (not (file-remote-p buffer-file-name))
+                            (file-readable-p buffer-file-name)
                             (not (verify-visited-file-modtime buffer)))))
                 (and (or auto-revert-mode
                          global-auto-revert-non-file-buffers)