diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-11-27 01:59:37 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-11-27 01:59:37 +0000 |
| commit | 4cbac8e94b68297189524f2db456c776bda4ed69 (patch) | |
| tree | cb4d82df945932379d3362c3bad0c83c302dab2d /lisp/gnus | |
| parent | 0b575a333b489055df39de80a9ef6c617002820b (diff) | |
| download | emacs-4cbac8e94b68297189524f2db456c776bda4ed69.tar.gz | |
lisp/gnus/gnus-art.el (gnus-article-browse-html-parts): Replace LWSPs with ` 's in header
Diffstat (limited to 'lisp/gnus')
| -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") |