diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/gnus/gnus-art.el | 7 |
2 files changed, 10 insertions, 0 deletions
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 <yamaoka@jpl.org> + * 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 "<br>\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 "<div align=\"left\">\n") (goto-char (point-max)) (insert "</div>\n<hr>\n") |