Commit e7102c0a authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

shr.el (shr-insert): Don't break long line if it is because of kinsoku-bol...

shr.el (shr-insert): Don't break long line if it is because of kinsoku-bol characters in the line end.
parent 77d6bce8
2010-11-11 Katsumi Yamaoka <yamaoka@jpl.org>
* shr.el (shr-insert): Don't break long line if it is because of
kinsoku-bol characters in the line end.
2010-11-11 Andrew Cohen <cohen@andy.bu.edu>
 
* nnir.el (nnir-request-move-article): Fix to provide original group
......
......@@ -235,9 +235,13 @@ redirects somewhere else."
(aref elem 0)))))
(delete-char -1)))
(insert elem)
(while (> (current-column) shr-width)
(let (found)
(while (and (> (current-column) shr-width)
(progn
(setq found (shr-find-fill-point))
(not (eolp))))
(unless (prog1
(shr-find-fill-point)
found
(when (eq (preceding-char) ? )
(delete-char -1))
(insert "\n"))
......@@ -248,7 +252,7 @@ redirects somewhere else."
(when (> shr-indentation 0)
(shr-indent))
(end-of-line))
(insert " "))
(insert " ")))
(unless (string-match "[ \t\n]\\'" text)
(delete-char -1)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment