From: tsuchiya <tsuchiya>
Date: Sun, 9 Dec 2001 04:31:24 +0000 (+0000)
Subject: Fix a part of the last change.
X-Git-Tag: t-gnus-6_15_4-09-quimby-last-~30
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b13b94d818a480eebd96307dc676bd454952f432;p=elisp%2Fgnus.git-

Fix a part of the last change.
---

diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el
index 3893d8d..55317ea 100644
--- 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