From eab7e5ee05685c2c6bd2d437831ecfd54ae94bff Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 4 Sep 2010 13:54:12 +0200 Subject: [PATCH] (gnus-html-wash-tags): Remove even more white space around . --- lisp/ChangeLog | 5 ++++- lisp/gnus-html.el | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1fda7c4f9..4c21106be 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-09-04 Lars Magne Ingebrigtsen + * gnus-html.el (gnus-html-wash-tags): Remove even more white space + around . + * gnus-art.el (gnus-article-copy-string): Say what data we copied. * nnmh.el (nnmh-request-list-1): Optimize for speed. @@ -10,7 +13,7 @@ not all directories in the path in addition to the image directories. (mm-image-load-path): Maintain a cache of the image directories so that the `g' command in Gnus doesn't have to stat dozens of directories each - time. + time. * gnus-html.el (gnus-html-put-image): Allow images to be removed. (gnus-html-wash-tags): Add a new `i' command to insert images. diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el index e14d109d6..f7eb05bf8 100644 --- a/lisp/gnus-html.el +++ b/lisp/gnus-html.el @@ -112,7 +112,7 @@ fit these criteria." (defun gnus-html-wash-tags () (let (tag parameters string start end images url) (goto-char (point-min)) - (while (re-search-forward " * *\n" nil t) + (while (re-search-forward " * * *\n" nil t) (replace-match "" t t)) (goto-char (point-min)) (while (re-search-forward "<\\([^ />]+\\)\\([^>]*\\)>" nil t) -- 2.34.1