gnus-html-get-image-data: 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 e6aba95..54a1ff8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,9 @@
 
 2010-09-22  Julien Danjou  <julien@danjou.info>
 
+       * gnus-html.el (gnus-html-get-image-data): Search also for \r\n\r\n to
+       get the start of data.
+
        * gnus-group.el (gnus-group-update-hook): Call gnus-group-add-icon by
        default.
        (gnus-group-add-icon): Move to gnus-group.el, and rewrite so it works.

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 366c331..847a3d1 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -371,7 +371,8 @@ Return a string with image data."
   (with-temp-buffer
     (mm-disable-multibyte)
     (url-cache-extract (url-cache-create-filename url))
-    (when (search-forward "\n\n" nil t)
+    (when (or (search-forward "\n\n" nil t)
+              (search-forward "\r\n\r\n" nil t))
       (buffer-substring (point) (point-max)))))
 
 (defun gnus-html-put-image (data start end &optional url alt-text)