From 55ffb35736a85abc8c91df2498074e70461ef502 Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Wed, 22 Sep 2010 18:22:19 +0200 Subject: [PATCH] gnus-html-image-fetched: Search also for \r\n\r\n to get the start of data Signed-off-by: Julien Danjou --- lisp/ChangeLog | 2 ++ lisp/gnus-html.el | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2c0ca7a5a..80cb5f120 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -5,6 +5,8 @@ (gnus-html-put-image): Stop using markers. They are harmful if you have 2 images side-by-side, they can't be properly update on text deletion. Using text-property is safer here. + (gnus-html-image-fetched): Search also for \r\n\r\n to get the start of + data. 2010-09-22 Lars Magne Ingebrigtsen diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el index 527d92be6..f796bdea9 100644 --- a/lisp/gnus-html.el +++ b/lisp/gnus-html.el @@ -346,7 +346,8 @@ Use ALT-TEXT for the image string." (defun gnus-html-image-fetched (status buffer image) (url-store-in-cache (current-buffer)) - (when (and (search-forward "\n\n" nil t) + (when (and (or (search-forward "\n\n" nil t) + (search-forward "\r\n\r\n" nil t)) (buffer-live-p buffer)) (let ((data (buffer-substring (point) (point-max)))) (with-current-buffer buffer -- 2.25.1