Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4cbac8e9
Commit
4cbac8e9
authored
Nov 27, 2013
by
Katsumi Yamaoka
Browse files
lisp/gnus/gnus-art.el (gnus-article-browse-html-parts): Replace LWSPs with ` 's in header
parent
0b575a33
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
0 deletions
+10
-0
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+3
-0
lisp/gnus/gnus-art.el
lisp/gnus/gnus-art.el
+7
-0
No files found.
lisp/gnus/ChangeLog
View file @
4cbac8e9
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):
...
...
lisp/gnus/gnus-art.el
View file @
4cbac8e9
...
...
@@ -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")
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment