[Emacs-diffs] /srv/bzr/emacs/trunk r101321: gnus-html.el: Remove more white space before <pre_int> image spacers; Decode entities at the end. So that entities inside the tags don't mess up the rest of the "parsing".

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101321
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2010-09-04 00:36:13 +0000
message:
  gnus-html.el: Remove more white space before <pre_int> image spacers; Decode 
entities at the end.  So that entities inside the tags don't mess up the rest 
of the "parsing".
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-html.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-09-04 00:30:49 +0000
+++ b/lisp/gnus/ChangeLog       2010-09-04 00:36:13 +0000
@@ -5,6 +5,10 @@
        (gnus-html-insert-image): New command and keystroke.
        (gnus-html-redisplay-with-images): New command and keystroke.
        (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

=== modified file 'lisp/gnus/gnus-html.el'
--- a/lisp/gnus/gnus-html.el    2010-09-04 00:30:49 +0000
+++ b/lisp/gnus/gnus-html.el    2010-09-04 00:36:13 +0000
@@ -113,7 +113,7 @@
   (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)
+    (while (re-search-forward " *<pre_int> *</pre_int>\n" nil t)
       (replace-match "" t t))
     (goto-char (point-min))
     (while (re-search-forward "<\\([^ />]+\\)\\([^>]*\\)>" nil t)