Don't break lines between punctuation and non-punctuation

[gnus] / lisp / shr.el

diff --git a/lisp/shr.el b/lisp/shr.el
index 2516a18..c39dd05 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -286,7 +286,9 @@ redirects somewhere else."
                            (aref (char-category-set (following-char)) ?>)))
                  (backward-char 1))
              (while (and (>= (setq count (1- count)) 0)
-                         (aref (char-category-set (following-char)) ?>))
+                         (aref (char-category-set (following-char)) ?>)
+                         (aref fill-find-break-point-function-table
+                               (following-char)))
                (forward-char 1)))
            (when (eq (following-char) ? )
              (forward-char 1))
@@ -524,7 +526,7 @@ Return a string with image data."
          (url (or url (cdr (assq :src cont)))))
       (let ((start (point-marker)))
        (when (zerop (length alt))
-         (setq alt "[img]"))
+         (setq alt "*"))
        (cond
         ((or (member (cdr (assq :height cont)) '("0" "1"))
              (member (cdr (assq :width cont)) '("0" "1")))