Decode entities before prefetching images.
authorLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Sun, 24 Oct 2010 04:49:30 +0000 (06:49 +0200)
committerLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Sun, 24 Oct 2010 04:49:30 +0000 (06:49 +0200)
lisp/ChangeLog
lisp/gnus-html.el

index fa4f437..1ffb849 100644 (file)
@@ -1,5 +1,8 @@
 2010-10-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-html.el (gnus-html-prefetch-images): Decode entities before
+       prefetching images.
+
        * gnus-sum.el (gnus-group-make-articles-read): Propagate marks to the
        backend for unknown groups.  This is mainly useful for nnimap groups.
 
index 77f771d..8571fdb 100644 (file)
@@ -494,7 +494,8 @@ This only works if the article in question is HTML."
                             (gnus-blocked-images))))
       (save-match-data
        (while (re-search-forward "<img[^>]+src=[\"']\\(http[^\"']+\\)" nil t)
-         (let ((url (gnus-html-encode-url (match-string 1))))
+         (let ((url (gnus-html-encode-url
+                     (mm-url-decode-entities-string (match-string 1)))))
            (unless (gnus-html-image-url-blocked-p url blocked-images)
               (when (gnus-html-cache-expired url gnus-html-image-cache-ttl)
                 (gnus-html-schedule-image-fetching nil