From b13b94d818a480eebd96307dc676bd454952f432 Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Sun, 9 Dec 2001 04:31:24 +0000 Subject: [PATCH] Fix a part of the last change. --- lisp/gnus-namazu.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) 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 -- 1.7.10.4