(shr-insert): Tweak line breaking.

[gnus] / lisp / shr.el

diff --git a/lisp/shr.el b/lisp/shr.el
index bfcb91e..05fd4b3 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -242,11 +242,12 @@ fit these criteria."
        (insert " "))
       (dolist (elem (split-string text))
        (setq column (current-column))
-       (when (> column 0)
+       (when (and (not first)
+                  (> column 0))
          (cond
           ((> (+ column (length elem) 1) shr-width)
            (insert "\n"))
-          ((not first)
+          (t
            (insert " "))))
        (setq first nil)
        (when (and (bolp)