[Emacs-diffs] trunk r115249: lisp/gnus/gnus-art.el (gnus-article-browse-html-parts): Replace LWSPs with `  's in header

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 115249
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2013-11-27 01:59:37 +0000
message:
  lisp/gnus/gnus-art.el (gnus-article-browse-html-parts): Replace LWSPs with 
`&nbsp;'s in header
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-art.el          gnusart.el-20091113204419-o5vbwnq5f7feedwu-1108

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-11-27 01:54:35 +0000
+++ b/lisp/gnus/ChangeLog       2013-11-27 01:59:37 +0000
@@ -1,5 +1,8 @@
 2013-11-27  Katsumi Yamaoka  <address@hidden>
 
+       * 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):

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2013-11-27 01:54:35 +0000
+++ b/lisp/gnus/gnus-art.el     2013-11-27 01:59:37 +0000
@@ -2895,6 +2895,13 @@
                                          ((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")