diff options
| author | Benjamin Riefenstahl <b.riefenstahl@turtle-trading.net> | 2021-08-10 15:47:50 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-10 16:41:37 +0200 |
| commit | 2656ecff96558ce2d5adf726a8574360175e6740 (patch) | |
| tree | 1d4c54fc2bf7af762a83a78d4b7a31b486781e34 /lisp/gnus | |
| parent | 1572464b9271472b8d7a36b698541afc59b44870 (diff) | |
| download | emacs-2656ecff96558ce2d5adf726a8574360175e6740.tar.gz | |
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).
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/nnrss.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el index 0f12ee0e9d2..97c9f18a602 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 |