[Emacs-diffs] Changes to emacs/lisp/international/mule.el

[Kenichi Handa]

Index: emacs/lisp/international/mule.el
diff -u emacs/lisp/international/mule.el:1.237 
emacs/lisp/international/mule.el:1.238
--- emacs/lisp/international/mule.el:1.237      Fri May 26 04:47:47 2006
+++ emacs/lisp/international/mule.el    Fri Jun  2 03:54:14 2006
@@ -2256,7 +2256,10 @@
   (setq size (min (+ (point) size)
                  ;; Only search forward 10 lines
                  (save-excursion
-                   (forward-line 10)
+                   ;; 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))