From 8722e849f75ceafb82a1c17105e8ab76077a8ebc Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 9 Feb 2016 13:51:45 +1100 Subject: [PATCH] Make the `R' command get the correct relative s * lisp/net/eww.el (eww-readable): Preserve the base URL so that image expansions are fetched from the right place (bug#22605). --- lisp/net/eww.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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))) -- 2.39.2