Fix a part of the last change.

diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el
index 3893d8d..55317ea 100644 (file)
--- a/lisp/gnus-namazu.el
+++ b/lisp/gnus-namazu.el
@@ -450,18 +450,20 @@ and make a virtual group contains its results."
     (if articles
        (let ((real-groups groups)
              (vgroup
-              (encode-coding-string
-               (apply (function format)
-                      "nnvirtual:namazu-search?query=%s&groups=%s&id=%d%d%d"
-                      query
-                      (if groups (mapconcat 'identity groups ",") "ALL")
-                      (current-time))
-               gnus-namazu-coding-system)))
+              (apply (function format)
+                     "nnvirtual:namazu-search?query=%s&groups=%s&id=%d%d%d"
+                     query
+                     (if groups (mapconcat 'identity groups ",") "ALL")
+                     (current-time))
+              gnus-namazu-coding-system))
          (gnus-namazu/truncate-article-list articles)
          (unless real-groups
            (dolist (a articles)
              (add-to-list 'real-groups (gnus-namazu/article-group a))))
          ;; Generate virtual group which includes all results.
+         (when (fboundp 'gnus-group-decoded-name)
+           (setq vgroup
+                 (encode-coding-string vgroup gnus-namazu-coding-system)))
          (setq vgroup
                (gnus-group-read-ephemeral-group
                 vgroup