master 2656ecf 1/2: Fix nnrss-get-namespace-prefix (bug#34685)

[Lars Ingebrigtsen]

branch: master
commit 2656ecff96558ce2d5adf726a8574360175e6740
Author: Benjamin Riefenstahl <b.riefenstahl@turtle-trading.net>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix nnrss-get-namespace-prefix (bug#34685)
    
    * lisp/gnus/nnrss.el (nnrss-get-namespace-prefix): Use the car of
    parameter el to match what dom-search expects.
    * test/lisp/gnus/nnrss-tests.el (test-nnrss-xml): Adjust to what
    xml-parse-region produces (bug#34685).
---
 lisp/gnus/nnrss.el            |  7 ++++---
 test/lisp/gnus/nnrss-tests.el | 10 +++++-----
 2 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el
index 0f12ee0..97c9f18 100644
--- a/lisp/gnus/nnrss.el
+++ b/lisp/gnus/nnrss.el
@@ -954,9 +954,10 @@ Simply ensures that the first element is rss or rdf."
   "Given EL (containing a parsed element) and URI (containing a string
 that gives the URI for which you want to retrieve the namespace
 prefix), return the prefix."
-  (let* ((prefix (car (rassoc uri (dom-attributes
-                                  (dom-search
-                                   el
+  (let* ((dom (car el))
+         (prefix (car (rassoc uri (dom-attributes
+                                  (dom-search
+                                   dom
                                    (lambda (node)
                                      (rassoc uri (dom-attributes node))))))))
         (nslist (if prefix
diff --git a/test/lisp/gnus/nnrss-tests.el b/test/lisp/gnus/nnrss-tests.el
index 01b374a..92b7dac 100644
--- a/test/lisp/gnus/nnrss-tests.el
+++ b/test/lisp/gnus/nnrss-tests.el
@@ -27,11 +27,11 @@
                  "Fri, 17 Sep 2004 05:09:49 +0000")))
 
 (defconst test-nnrss-xml
-  '(rss
-    ((version . "2.0")
-     (xmlns:dc . "http://purl.org/dc/elements/1.1/";))
-    (channel
-     ((xmlns:content . "http://purl.org/rss/1.0/modules/content/";)))))
+  '((rss
+     ((version . "2.0")
+      (xmlns:dc . "http://purl.org/dc/elements/1.1/";))
+     (channel
+      ((xmlns:content . "http://purl.org/rss/1.0/modules/content/";))))))
 
 (ert-deftest test-nnrss-namespace-top ()
   (should (equal (nnrss-get-namespace-prefix