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
35624242
Commit
35624242
authored
Oct 06, 2010
by
Lars Magne Ingebrigtsen
Committed by
Katsumi Yamaoka
Oct 06, 2010
Browse files
shr.el (shr-render-td): Only delete space at the end of the TD.
parent
1d8e1f78
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
2 deletions
+5
-2
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+1
-0
lisp/gnus/shr.el
lisp/gnus/shr.el
+4
-2
No files found.
lisp/gnus/ChangeLog
View file @
35624242
2010-10-06 Lars Magne Ingebrigtsen <larsi@gnus.org>
2010-10-06 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-insert): Get 'space transition right.
* shr.el (shr-insert): Get 'space transition right.
(shr-render-td): Only delete space at the end of the TD.
* nnimap.el (nnimap-open-connection): Prepare to support
* nnimap.el (nnimap-open-connection): Prepare to support
open-gnutls-stream.
open-gnutls-stream.
...
...
lisp/gnus/shr.el
View file @
35624242
...
@@ -553,8 +553,10 @@ Return a string with image data."
...
@@ -553,8 +553,10 @@ Return a string with image data."
(let ((shr-width width)
(let ((shr-width width)
(shr-indentation 0))
(shr-indentation 0))
(shr-generic cont))
(shr-generic cont))
(
while
(
re-search-backward
"\n *$"
nil
t
)
(delete-region
(
delete-region
(
match-beginning
0
)
(
match-end
0
)))
(point)
(+ (point)
(skip-chars-backward " \t\n")))
(goto-char (point-min))
(goto-char (point-min))
(let ((max 0))
(let ((max 0))
(while (not (eobp))
(while (not (eobp))
...
...
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