Commit 4cbac8e9 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

lisp/gnus/gnus-art.el (gnus-article-browse-html-parts): Replace LWSPs with ` 's in header

parent 0b575a33
2013-11-27 Katsumi Yamaoka <yamaoka@jpl.org> 2013-11-27 Katsumi Yamaoka <yamaoka@jpl.org>
   
* gnus-art.el (gnus-article-browse-html-parts):
Replace LWSPs with `&nbsp;'s in header.
Work for broken Chinese articles. Work for broken Chinese articles.
   
* gnus-art.el (gnus-article-browse-html-save-cid-content): * gnus-art.el (gnus-article-browse-html-save-cid-content):
......
...@@ -2895,6 +2895,13 @@ message header will be added to the bodies of the \"text/html\" parts." ...@@ -2895,6 +2895,13 @@ message header will be added to the bodies of the \"text/html\" parts."
((match-beginning 3) "&amp;") ((match-beginning 3) "&amp;")
(t "<br>\n")))) (t "<br>\n"))))
(goto-char (point-min)) (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 "&nbsp;")))
(goto-char (point-min))
(insert "<div align=\"left\">\n") (insert "<div align=\"left\">\n")
(goto-char (point-max)) (goto-char (point-max))
(insert "</div>\n<hr>\n") (insert "</div>\n<hr>\n")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment