[Emacs-diffs] /srv/bzr/emacs/trunk r105722: nnrss.el (nnrss-retrieve-groups): Decode the charset before looking up the file (bug#9351).

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 105722
author: Tetsuo Tsukamoto <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2011-09-11 08:20:33 +0000
message:
  nnrss.el (nnrss-retrieve-groups): Decode the charset before looking up the 
file (bug#9351).
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnrss.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-09-10 23:30:53 +0000
+++ b/lisp/gnus/ChangeLog       2011-09-11 08:20:33 +0000
@@ -1,3 +1,8 @@
+2011-09-10  Tetsuo Tsukamoto  <address@hidden>  (tiny change)
+
+       * nnrss.el (nnrss-retrieve-groups): Decode the charset before looking
+       up the file (bug#9351).
+
 2011-09-10  Lars Magne Ingebrigtsen  <address@hidden>
 
        * nnimap.el: Redo the charset handling.  Let Gnus encode the names, as

=== modified file 'lisp/gnus/nnrss.el'
--- a/lisp/gnus/nnrss.el        2011-01-25 04:08:28 +0000
+++ b/lisp/gnus/nnrss.el        2011-09-11 08:20:33 +0000
@@ -363,12 +363,13 @@
 
 (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))