mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-31 11:13:50 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Katsumi Yamaoka 2013-11-27 01:59:37 +00:00
parent 0b575a333b
commit 4cbac8e94b
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/gnus/ChangeLog
View File

@ -1,5 +1,8 @@
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.
* gnus-art.el (gnus-article-browse-html-save-cid-content):

7
lisp/gnus/gnus-art.el
View File

@ -2895,6 +2895,13 @@ message header will be added to the bodies of the \"text/html\" parts."
((match-beginning 3) "&amp;")
(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 "&nbsp;")))
(goto-char (point-min))
(insert "<div align=\"left\">\n")
(goto-char (point-max))
(insert "</div>\n<hr>\n")