Decode entities at the end.

So that entities inside the tags don't mess up the rest of the
"parsing".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db75279..6abd2c6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -7,6 +7,8 @@
        (gnus-html-show-images): Renamed command.
        (gnus-html-wash-tags): Remove more white space before <pre_int> image
        spacers.
+       (gnus-html-wash-tags): Decode entities at the end, so that entities
+       inside the tags don't mess up the rest of the "parsing".
 
        * gnus-agent.el (gnus-agent-auto-agentize-methods): Change the default
        so that nnimap methods aren't agentized by default.  There's apparently

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 1e6cdc5..e14d109 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -111,7 +111,6 @@ fit these criteria."
 
 (defun gnus-html-wash-tags ()
   (let (tag parameters string start end images url)
-    (mm-url-decode-entities)
     (goto-char (point-min))
     (while (re-search-forward " *<pre_int> *</pre_int>\n" nil t)
       (replace-match "" t t))
@@ -223,7 +222,8 @@ fit these criteria."
     (while (re-search-forward "</pre_int>" nil t)
       (replace-match "" t t))
     (when images
-      (gnus-html-schedule-image-fetching (current-buffer) (nreverse images)))))
+      (gnus-html-schedule-image-fetching (current-buffer) (nreverse images)))
+    (mm-url-decode-entities)))
 
 (defun gnus-html-insert-image ()
   "Fetch and insert the image under point."