From 4cbac8e94b68297189524f2db456c776bda4ed69 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 27 Nov 2013 01:59:37 +0000 Subject: [PATCH] lisp/gnus/gnus-art.el (gnus-article-browse-html-parts): Replace LWSPs with ` 's in header --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/gnus-art.el | 7 +++++++ 2 files changed, 10 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 1e332154118..eee75f7194f 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2013-11-27 Katsumi Yamaoka + * gnus-art.el (gnus-article-browse-html-parts): + Replace LWSPs with ` 's in header. + Work for broken Chinese articles. * gnus-art.el (gnus-article-browse-html-save-cid-content): diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index b939fa64523..a902cb9024a 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -2895,6 +2895,13 @@ message header will be added to the bodies of the \"text/html\" parts." ((match-beginning 3) "&") (t "
\n")))) (goto-char (point-min)) + (while (re-search-forward "^[\t ]+" nil t) + (dotimes (i (prog1 + (current-column) + (delete-region (match-beginning 0) + (match-end 0)))) + (insert " "))) + (goto-char (point-min)) (insert "
\n") (goto-char (point-max)) (insert "
\n
\n") -- 2.39.2