From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Mon, 4 Oct 2010 12:50:47 +0000 (+0200)
Subject: (shr-tag-li): Get <li> indentation right.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=8339220cc25db3fbdab4367d6252e596bddd9cb1

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b1d419813..07635776d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
 	* shr.el (shr-ensure-paragraph): Fix the non-empty line case.
 	(shr-insert): Tweak line breaking.
 	(shr-insert): Handle <pre> better.
+	(shr-tag-li): Get <li> indentation right.
 
 2010-10-04  Julien Danjou  <julien@danjou.info>
 
diff --git a/lisp/shr.el b/lisp/shr.el
index 564234bea..cca3de5b7 100644
--- 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)