diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-09-02 01:33:31 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-09-02 01:33:31 +0000 |
| commit | 36a806f35776e884b6228f72030993284789c785 (patch) | |
| tree | be0330325333be843dbd35da852b460316d7c8be /lisp | |
| parent | a93b858c988ce8c580ceccc4d49e08b3c2fef762 (diff) | |
| download | emacs-36a806f35776e884b6228f72030993284789c785.tar.gz | |
gnus-html.el (gnus-html-wash-tags): Remove all <pre_int> place holders.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/gnus/gnus-html.el | 3 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 1a0f2de1b93..4685373cf5f 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -2,6 +2,7 @@ * gnus-html.el (gnus-html-wash-tags): Don't show images that are really small. They're probably tracking images. + (gnus-html-wash-tags): Remove all <pre_int> place holders. * nntp.el (nntp-request-set-mark): Refuse to do marks if nntp-marks-file-name is nil. diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index aa6d8fe297d..5bbf5d5893b 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -104,6 +104,9 @@ 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) + (replace-match "" t t)) + (goto-char (point-min)) (while (re-search-forward "<\\([^ />]+\\)\\([^>]*\\)>" nil t) (setq tag (match-string 1) parameters (match-string 2) |