* shr.el (shr-generic): The text nodes should be text, not :text.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0e1bf49..af2104a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-10-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * shr.el (shr-generic): The text nodes should be text, not :text.
+
        * nnir.el (nnir-search-engine): Ressurect variable, since it's used
        later in the file.
 

diff --git a/lisp/shr.el b/lisp/shr.el
index bbb7ff1..2516a18 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -181,7 +181,7 @@ redirects somewhere else."
            result))
     (dolist (sub dom)
       (if (stringp sub)
-         (push (cons :text sub) result)
+         (push (cons 'text sub) result)
        (push (shr-transform-dom sub) result)))
     (nreverse result)))
 
@@ -194,7 +194,7 @@ redirects somewhere else."
 (defun shr-generic (cont)
   (dolist (sub cont)
     (cond
-     ((eq (car sub) :text)
+     ((eq (car sub) 'text)
       (shr-insert (cdr sub)))
      ((listp (cdr sub))
       (shr-descend sub)))))