# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1149272222 0
# Node ID 3f87fbcb6f667bccfdda0c3ec6775f5e634b76d8
# Parent  d61af0a1f66d131b8a20dfa6f19b920b6c6973cb
(sgml-html-meta-auto-coding-function):
Remove the condition `(search-forward "<html" size t)'.
Replace `\"' with `[\"']?' in `re-search-forward'.

diff -r d61af0a1f66d -r 3f87fbcb6f66 lisp/international/mule.el
--- a/lisp/international/mule.el	Fri Jun 02 17:33:54 2006 +0000
+++ b/lisp/international/mule.el	Fri Jun 02 18:17:02 2006 +0000
@@ -2284,21 +2284,19 @@
   "If the buffer has an HTML meta tag, use it to determine encoding.
 This function is intended to be added to `auto-coding-functions'."
   (setq size (min (+ (point) size)
-		  ;; Only search forward 10 lines
 		  (save-excursion
 		    ;; Limit the search by the end of the HTML header.
 		    (or (search-forward "</head>" size t)
 			;; In case of no header, search only 10 lines.
 			(forward-line 10))
 		    (point))))
-  (when (and (search-forward "<html" size t)
-	     (re-search-forward "<meta\\s-+http-equiv=\"content-type\"\\s-+content=\"text/\\sw+;\\s-*charset=\\(.+?\\)\"" size t))
-      (let* ((match (match-string 1))
-	     (sym (intern (downcase match))))
-	(if (coding-system-p sym)
-	    sym
-	  (message "Warning: unknown coding system \"%s\"" match)
-	  nil))))
+  (when (re-search-forward "<meta\\s-+http-equiv=[\"']?content-type[\"']?\\s-+content=[\"']text/\\sw+;\\s-*charset=\\(.+?\\)[\"']" size t)
+    (let* ((match (match-string 1))
+	   (sym (intern (downcase match))))
+      (if (coding-system-p sym)
+	  sym
+	(message "Warning: unknown coding system \"%s\"" match)
+	nil))))
 
 ;;;
 (provide 'mule)