bug#15215: 24.3; quit abnormally when find-file

[forward]

In definition of function `find-file-noselect' in file "files.el"
from line 1807 to 1816

            ;; Certain files should be reverted automatically
            ;; if they have changed on disk and not in the buffer.
            ((and (not (buffer-modified-p buf))
                  (let ((tail revert-without-query)
                    (found nil))
                (while tail
                  (if (string-match (car tail) filename)  ===>
                      (setq found t))
                  (setq tail (cdr tail)))
                found))

   ==> when tail is `t' since `revert-without-query' is `t' ,  it signals a "Wrong type argument: listp, t". Should it be checked? Thanks.