2010-10-13 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * shr.el (shr-find-fill-point): Use a filling algorithm that should
+ probably work for CJVK text, too.
+
* nnimap.el (nnimap-extend-tls-programs): Removed.
(nnimap-open-connection): Bind STARTTLS to openssl explicitly.
(unless shr-start
(setq shr-start (point)))
(insert elem)
- (when (> (current-column) shr-width)
- (if (not (search-backward " " (line-beginning-position) t))
+ (while (> (current-column) shr-width)
+ (if (not (shr-find-fill-point))
(insert "\n")
(delete-char 1)
(insert "\n")
(let ((found nil))
(while (and (not found)
(not (bolp)))
- (when (or (eq (preceding-char) ? )
- (aref fill-find-break-point-function-table (preceding-char)))
+ (when (and (or (eq (preceding-char) ? )
+ (aref fill-find-break-point-function-table
+ (preceding-char)))
+ (<= (current-column) shr-width))
(setq found (point)))
(backward-char 1))
(or found