diff options
Diffstat (limited to 'lisp')
| -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 @@ | |||
| 1 | 2013-11-27 Katsumi Yamaoka <yamaoka@jpl.org> | 1 | 2013-11-27 Katsumi Yamaoka <yamaoka@jpl.org> |
| 2 | 2 | ||
| 3 | * gnus-art.el (gnus-article-browse-html-parts): | ||
| 4 | Replace LWSPs with ` 's in header. | ||
| 5 | |||
| 3 | Work for broken Chinese articles. | 6 | Work for broken Chinese articles. |
| 4 | 7 | ||
| 5 | * gnus-art.el (gnus-article-browse-html-save-cid-content): | 8 | * 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." | |||
| 2895 | ((match-beginning 3) "&") | 2895 | ((match-beginning 3) "&") |
| 2896 | (t "<br>\n")))) | 2896 | (t "<br>\n")))) |
| 2897 | (goto-char (point-min)) | 2897 | (goto-char (point-min)) |
| 2898 | (while (re-search-forward "^[\t ]+" nil t) | ||
| 2899 | (dotimes (i (prog1 | ||
| 2900 | (current-column) | ||
| 2901 | (delete-region (match-beginning 0) | ||
| 2902 | (match-end 0)))) | ||
| 2903 | (insert " "))) | ||
| 2904 | (goto-char (point-min)) | ||
| 2898 | (insert "<div align=\"left\">\n") | 2905 | (insert "<div align=\"left\">\n") |
| 2899 | (goto-char (point-max)) | 2906 | (goto-char (point-max)) |
| 2900 | (insert "</div>\n<hr>\n") | 2907 | (insert "</div>\n<hr>\n") |