[gnus git] branch master updated: m0-7-95-gb0596d0 =1= (shr-descend): Respect display: none.

       via  b0596d0e30e0e8ec1c36b70921b7cae9003de5e9 (commit)
      from  6c78ca5c6ea2e87ddde13d5c7f5894ba42711f68 (commit)


- Log -----------------------------------------------------------------
commit b0596d0e30e0e8ec1c36b70921b7cae9003de5e9
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sun Jun 16 20:00:17 2013 +0200

    (shr-descend): Respect display: none.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6afdf2..02da057 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,7 @@
 	browsers don't.
 	(shr-expand-url): Respect #anchor links.
 	(shr-parse-base): Chop off the anchor before using.
+	(shr-descend): Respect display: none.
 
 	* eww.el (eww-tag-textarea): Use `text' instead of `editable-field'.
 
diff --git a/lisp/shr.el b/lisp/shr.el
index e10bfcd..82c5dd2 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -311,10 +311,13 @@ size, and full-buffer size."
 	(shr-stylesheet shr-stylesheet)
 	(start (point)))
     (when style
-      (if (string-match "color" style)
+      (if (string-match "color\\|display" style)
 	  (setq shr-stylesheet (nconc (shr-parse-style style)
 				      shr-stylesheet))
 	(setq style nil)))
+    ;; If we have a display:none, then just ignore this part of the
+    ;; DOM.
+    (unless (equal (cdr (assq 'display shr-stylesheet)) "none")
     (if (fboundp function)
 	(funcall function (cdr dom))
       (shr-generic (cdr dom)))
@@ -322,7 +325,7 @@ size, and full-buffer size."
     (when style
       (shr-colorize-region start (point)
 			   (cdr (assq 'color shr-stylesheet))
-			   (cdr (assq 'background-color shr-stylesheet))))))
+			     (cdr (assq 'background-color shr-stylesheet)))))))
 
 (defun shr-generic (cont)
   (dolist (sub cont)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    1 +
 lisp/shr.el    |   21 ++++++++++++---------
 2 files changed, 13 insertions(+), 9 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project