* lisp/gnus-namazu.el (gnus-namazu-search): Slightly modified for

[elisp/gnus.git-] / lisp / gnus-namazu.el

diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el
index 55317ea..1f42383 100644 (file)
--- a/lisp/gnus-namazu.el
+++ b/lisp/gnus-namazu.el
@@ -438,6 +438,7 @@ options make any sense in this context."
                  nil))))
     articles))
 
+;;;###autoload
 (defun gnus-namazu-search (groups query)
   "Search QUERY through GROUPS with Namazu,
 and make a virtual group contains its results."
@@ -454,16 +455,12 @@ and make a virtual group contains its results."
                      "nnvirtual:namazu-search?query=%s&groups=%s&id=%d%d%d"
                      query
                      (if groups (mapconcat 'identity groups ",") "ALL")
-                     (current-time))
-              gnus-namazu-coding-system))
+                     (current-time))))
          (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