(shr-tag-li): Get <li> indentation right.

[gnus] / lisp / shr.el

diff --git a/lisp/shr.el b/lisp/shr.el
index 564234b..cca3de5 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -289,12 +289,13 @@ Return a string with image data."
 
 (defun shr-tag-li (cont)
   (shr-ensure-newline)
-  (if (numberp shr-list-mode)
-      (progn
-       (insert (format "%d " shr-list-mode))
-       (setq shr-list-mode (1+ shr-list-mode)))
-    (insert "* "))
-  (shr-generic cont))
+  (let ((shr-indentation (+ shr-indentation 2)))
+    (if (numberp shr-list-mode)
+       (progn
+         (insert (format "%d " shr-list-mode))
+         (setq shr-list-mode (1+ shr-list-mode)))
+      (insert "* "))
+    (shr-generic cont)))
 
 (defun shr-tag-br (cont)
   (unless (bobp)