[PATCH] (gnus-html-wash-tags): Add better support for <ul> tags symbols.

[Julien Danjou <julien@danjou.info>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1750 bytes --]

Signed-off-by: Julien Danjou <julien@danjou.info>
---
 lisp/ChangeLog    |    1 +
 lisp/gnus-html.el |   16 ++++++++++++++++
 2 files changed, 17 insertions(+), 0 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 565706c..5246c94 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -7,6 +7,7 @@
 	(gnus-html-wash-tags): Fix tag case.
 	Add support for `s' and `ins' tags. Use gnus-emphasis-* faces.
 	(gnus-article-html): Add -o display_ins_del=2 option.
+	(gnus-html-wash-tags): Add better support for <ul> tags symbols.
 
 2010-09-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index ba4a020..aff9e56 100644
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -270,6 +270,22 @@ fit these criteria."
        ((or (equal tag "ins")
             (equal tag "INS"))
         (gnus-overlay-put (gnus-make-overlay start end) 'face 'gnus-emphasis-underline))
+       ;; Handle different UL types
+       ((equal tag "_SYMBOL")
+        (when (string-match "TYPE=\\(.+\\)" parameters)
+          (let ((type (string-to-number (match-string 1 parameters))))
+            (delete-region start end)
+            (cond ((= type 33) (insert "▸"))
+                  ((= type 34) (insert "◾"))
+                  ((= type 35) (insert "◆"))
+                  ((= type 36) (insert "▰"))
+                  ((= type 37) (insert "○"))
+                  ((= type 38) (insert "▹"))
+                  ((= type 39) (insert "□"))
+                  ((= type 40) (insert "◇"))
+                  ((= type 42) (insert "○"))
+                  ((= type 43) (insert "◾"))
+                  (t (insert "●"))))))
        ;; Whatever.  Just ignore the tag.
        (t
 	))
-- 
1.7.1