Kevin Ryde <user42 at zip.com.au>

(sgml-html-meta-auto-coding-function): Bind `case-fold-search' to t.

lisp/ChangeLog

+2007-09-21  Kevin Ryde  <user42@zip.com.au>
+
+	* international/mule.el (sgml-html-meta-auto-coding-function):
+	Bind `case-fold-search' to t.
+
 2007-09-21  Glenn Morris  <rgm@gnu.org>
 
 	* textmodes/tex-mode.el (tex-validate-region): Handle escaped parens.

lisp/international/mule.el

@@ -2310,6 +2310,7 @@ This function is intended to be added to `auto-coding-functions'."
 (defun sgml-html-meta-auto-coding-function (size)
   "If the buffer has an HTML meta tag, use it to determine encoding.
 This function is intended to be added to `auto-coding-functions'."
+  (let ((case-fold-search t))
     (setq size (min (+ (point) size)
 		    (save-excursion
 		      ;; Limit the search by the end of the HTML header.
@@ -2328,7 +2329,7 @@ This function is intended to be added to `auto-coding-functions'."
 	(if (coding-system-p sym)
 	    sym
 	  (message "Warning: unknown coding system \"%s\"" match)
-	nil))))
+	  nil)))))
 
 ;;;
 (provide 'mule)