* gnus.el (gnus-nntp-server): Move to gnus-int.el to silence bytecomp.

[gnu-emacs] / lisp / gnus / nnrss.el

diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el
index b12700fac64dd53f93f4e4e7e9ab186b320c86f1..3e3b7326f2984bf3e0ab18f9ecf59dd715e61058 100644 (file)
--- a/lisp/gnus/nnrss.el
+++ b/lisp/gnus/nnrss.el
@@ -363,12 +363,13 @@ for decoding when the cdr that the data specify is not available.")
 
 (deffoo nnrss-retrieve-groups (groups &optional server)
   (dolist (group groups)
+    (setq group (nnrss-decode-group-name group))
     (nnrss-possibly-change-group group server)
     (nnrss-check-group group server))
   (with-current-buffer nntp-server-buffer
     (erase-buffer)
     (dolist (group groups)
-      (let ((elem (assoc group nnrss-server-data)))
+      (let ((elem (assoc (gnus-group-decoded-name group) nnrss-server-data)))
        (insert (format "%S %s 1 y\n" group (or (cadr elem) 0)))))
     'active))