shr.el (shr-insert): Set shr-start after deleting trailing space; don't delete it...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index e416abf6d7700702ef3bdb813ea24e8c63f46eae..76565b3f19f65fe72dcddc767157b7b8a37cbeee 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2010-12-16  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * shr.el (shr-insert): Set shr-start after deleting trailing space;
+       don't delete it within indentation.
+
 2010-12-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * nnimap.el (nnimap-retrieve-group-data-early): Fix the syntax of the

diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index 692d126234877690bb3ed77070ceaddfbcc254bd..1e95ddee8cb2f7b94ab00217c96546b1715e4f6b 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -253,16 +253,12 @@ redirects somewhere else."
       (when (and (bolp)
                 (> shr-indentation 0))
        (shr-indent))
-      ;; The shr-start is a special variable that is used to pass
-      ;; upwards the first point in the buffer where the text really
-      ;; starts.
-      (unless shr-start
-       (setq shr-start (point)))
       ;; No space is needed behind a wide character categorized as
       ;; kinsoku-bol, between characters both categorized as nospace,
       ;; or at the beginning of a line.
       (let (prev)
-       (when (and (eq (preceding-char) ? )
+       (when (and (> (current-column) shr-indentation)
+                  (eq (preceding-char) ? )
                   (or (= (line-beginning-position) (1- (point)))
                       (and (shr-char-breakable-p
                             (setq prev (char-after (- (point) 2))))
@@ -270,6 +266,11 @@ redirects somewhere else."
                       (and (shr-char-nospace-p prev)
                            (shr-char-nospace-p (aref elem 0)))))
          (delete-char -1)))
+      ;; The shr-start is a special variable that is used to pass
+      ;; upwards the first point in the buffer where the text really
+      ;; starts.
+      (unless shr-start
+       (setq shr-start (point)))
       (insert elem)
       (let (found)
        (while (and (> (current-column) shr-width)