From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 9 Feb 2016 02:51:45 +0000 (+1100)
Subject: Make the `R' command get the correct relative <img>s
X-Git-Tag: emacs-26.0.90~2695
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8722e849f75ceafb82a1c17105e8ab76077a8ebc;p=emacs.git

Make the `R' command get the correct relative <img>s

* lisp/net/eww.el (eww-readable): Preserve the base URL so
that image expansions are fetched from the right place (bug#22605).
---

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 6a5fb4bdcf0..fdac46483c7 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -625,11 +625,13 @@ the like."
 		(condition-case nil
 		    (decode-coding-region (point-min) (point-max) 'utf-8)
 		  (coding-system-error nil))
-		(libxml-parse-html-region (point-min) (point-max)))))
+		(libxml-parse-html-region (point-min) (point-max))))
+         (base (plist-get eww-data :url)))
     (eww-score-readability dom)
     (eww-save-history)
     (eww-display-html nil nil
-		      (eww-highest-readability dom)
+                      (list 'base (list (cons 'href base))
+                            (eww-highest-readability dom))
 		      nil (current-buffer))
     (dolist (elem '(:source :url :title :next :previous :up))
       (plist-put eww-data elem (plist-get old-data elem)))