diff options
| -rw-r--r-- | lisp/gnus/gnus-html.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index 1e6cdc5c9b7..e14d109d6ed 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el | |||
| @@ -111,7 +111,6 @@ fit these criteria." | |||
| 111 | 111 | ||
| 112 | (defun gnus-html-wash-tags () | 112 | (defun gnus-html-wash-tags () |
| 113 | (let (tag parameters string start end images url) | 113 | (let (tag parameters string start end images url) |
| 114 | (mm-url-decode-entities) | ||
| 115 | (goto-char (point-min)) | 114 | (goto-char (point-min)) |
| 116 | (while (re-search-forward " *<pre_int> *</pre_int>\n" nil t) | 115 | (while (re-search-forward " *<pre_int> *</pre_int>\n" nil t) |
| 117 | (replace-match "" t t)) | 116 | (replace-match "" t t)) |
| @@ -223,7 +222,8 @@ fit these criteria." | |||
| 223 | (while (re-search-forward "</pre_int>" nil t) | 222 | (while (re-search-forward "</pre_int>" nil t) |
| 224 | (replace-match "" t t)) | 223 | (replace-match "" t t)) |
| 225 | (when images | 224 | (when images |
| 226 | (gnus-html-schedule-image-fetching (current-buffer) (nreverse images))))) | 225 | (gnus-html-schedule-image-fetching (current-buffer) (nreverse images))) |
| 226 | (mm-url-decode-entities))) | ||
| 227 | 227 | ||
| 228 | (defun gnus-html-insert-image () | 228 | (defun gnus-html-insert-image () |
| 229 | "Fetch and insert the image under point." | 229 | "Fetch and insert the image under point." |