mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 13:11:14 -08:00
Code Issues Projects Releases Wiki Activity

shr.el (shr-insert): Fix last change.

Browse source
This commit is contained in:
Katsumi Yamaoka 2010-11-11 04:01:12 +00:00
parent b3e22bd43b
commit fe98a42fce
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/gnus/shr.el
View file

@ -240,11 +240,10 @@ redirects somewhere else."
(progn
(setq found (shr-find-fill-point))
(not (eolp))))
(unless (prog1
found
(when (eq (preceding-char) ? )
(delete-char -1))
(insert "\n"))
(when (eq (preceding-char) ? )
(delete-char -1))
(insert "\n")
(unless found
(put-text-property (1- (point)) (point) 'shr-break t)
;; No space is needed at the beginning of a line.
(when (eq (following-char) ? )