(sgml-html-meta-auto-coding-function):

Limit the search by the end of the HTML header (if any).

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index b66345ea3a8..c2d398b440e 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -2256,7 +2256,10 @@ This function is intended to be added to `auto-coding-functions'."
   (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))