1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 9087aa1c933..b9647b75b1c 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -906,7 +906,7 @@ This is used for loading and byte-compiling Emacs Lisp files.")
 (defun auto-coding-alist-lookup (filename)
   "Return the coding system specified by `auto-coding-alist' for FILENAME."
   (let ((alist auto-coding-alist)
-        (case-fold-search (memq system-type '(vax-vms windows-nt)))
+        (case-fold-search (memq system-type '(vax-vms windows-nt ms-dos)))
         coding-system)
     (while (and alist (not coding-system))
       (if (string-match (car (car alist)) filename)