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".
This commit is contained in:
parent
25f28806d2
commit
8fab3e398d
2 changed files with 5 additions and 1 deletions
|
@ -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
|
||||
|
|
|
@ -113,7 +113,7 @@ fit these criteria."
|
|||
(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)
|
||||
|
|
Loading…
Add table
Reference in a new issue