gnus-html-image-fetched: Search also for \r\n\r\n to get the start of data

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2c0ca7a..80cb5f1 100644 (file)
--- 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  <larsi@gnus.org>
 

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 527d92b..f796bde 100644 (file)
--- 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