From 21960ab568f3f1d11dbd91ebd46af9ba43305978 Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Sun, 3 Oct 2010 23:44:06 +0200
Subject: [PATCH] (shr-tag-li): Make <ul> prettier.

---
 lisp/ChangeLog | 1 +
 lisp/shr.el    | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5f6ec897e..20b9acf29 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
 	* shr.el: Add headings.
 	(shr-ensure-paragraph): Actually work.
+	(shr-tag-li): Make <ul> prettier.
 
 2010-10-03  Julien Danjou  <julien@danjou.info>
 
diff --git a/lisp/shr.el b/lisp/shr.el
index 9580b4f60..65a893cb1 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -262,6 +262,7 @@ Return a string with image data."
 (defvar shr-list-mode nil)
 
 (defun shr-tag-ul (cont)
+  (shr-ensure-paragraph)
   (let ((shr-list-mode 'ul))
     (shr-generic cont)))
 
@@ -275,7 +276,7 @@ Return a string with image data."
       (progn
 	(insert (format "%d " shr-list-mode))
 	(setq shr-list-mode (1+ shr-list-mode)))
-    (insert "* "))
+    (insert "*"))
   (shr-generic cont))
 
 (defun shr-tag-br (cont)
-- 
2.25.1