summaryrefslogtreecommitdiff
path: root/lisp/net/shr.el
diff options
context:
space:
mode:
authorGrégoire Jadi <gjadi@omecha.info>2017-07-24 17:29:28 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2017-07-24 17:29:28 +0200
commitfe25d0ce8e8b44c3e2ce84ac470822a299199445 (patch)
tree903b556b8d8f6b51d6af3f3409be80e528b1ac2e /lisp/net/shr.el
parent6dc5d45c542a6f9cfbcf3e37d597c9e0efb3070d (diff)
downloademacs-fe25d0ce8e8b44c3e2ce84ac470822a299199445.tar.gz
emacs-fe25d0ce8e8b44c3e2ce84ac470822a299199445.tar.bz2
emacs-fe25d0ce8e8b44c3e2ce84ac470822a299199445.zip
Ensure that we parse images right in shr.el
* lisp/net/shr.el (shr-image-fetched): Go back to the beginning of the buffer before trying to parse the image fetched.
Diffstat (limited to 'lisp/net/shr.el')
-rw-r--r--lisp/net/shr.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 2f73f982af9..fe93fc32ad3 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -945,6 +945,7 @@ If EXTERNAL, browse the URL using `shr-external-browser'."
(when (and (buffer-name buffer)
(not (plist-get status :error)))
(url-store-in-cache image-buffer)
+ (goto-char (point-min))
(when (or (search-forward "\n\n" nil t)
(search-forward "\r\n\r\n" nil t))
(let ((data (shr-parse-image-data)))