Decode the HTML source when displaying it in EWW

* lisp/net/eww.el (eww-view-source): Decode the HTML source
according to its headers.

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index bda4e0cfec28455c9878e3ffce455400cec982fc..6a315496fe074b8a38441d3dffad70a311888282 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -564,6 +564,15 @@ Currently this means either text/html or application/xhtml+xml."
        (delete-region (point-min) (point-max))
        (insert (or source "no source"))
        (goto-char (point-min))
+        ;; Decode the source and set the buffer's encoding according
+        ;; to what the HTML source specifies in its 'charset' header,
+        ;; if any.
+        (let ((cs (find-auto-coding "" (point-max))))
+          (when (consp cs)
+            (setq cs (car cs))
+            (when (coding-system-p cs)
+              (decode-coding-region (point-min) (point-max) cs)
+              (setq buffer-file-coding-system last-coding-system-used))))
        (when (fboundp 'html-mode)
          (html-mode))))
     (view-buffer buf)))