From: tsuchiya <tsuchiya>
Date: Sun, 9 Dec 2001 11:11:20 +0000 (+0000)
Subject: * lisp/gnus-namazu.el (gnus-namazu-search): Slightly modified for
X-Git-Tag: t-gnus-6_15_3-06-last-~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4dbcd22af7068c9b6ad1f07db073d1611204f7ae;p=elisp%2Fgnus.git-

* lisp/gnus-namazu.el (gnus-namazu-search): Slightly modified for
Oort Gnus v0.03.

* lisp/gnus.el (top): Add autoload of `gnus-namazu-search'.

* lisp/gnus-sum.el (gnus-summary-mode-map): Define "\C-c\C-n" as
`gnus-namazu-search'.

* lisp/gnus-group.el (gnus-group-mode-map): Define "\C-c\C-n" as
`gnus-namazu-search'.

* lisp/gnus-namazu.el: New file.
---

diff --git a/ChangeLog b/ChangeLog
index 1abbac1..61755af 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,16 @@
 2001-12-09  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
+	* lisp/gnus-namazu.el (gnus-namazu-search): Slightly modified for
+	Oort Gnus v0.03.
+
+	* lisp/gnus.el (top): Add autoload of `gnus-namazu-search'.
+
+	* lisp/gnus-sum.el (gnus-summary-mode-map): Define "\C-c\C-n" as
+	`gnus-namazu-search'.
+
+	* lisp/gnus-group.el (gnus-group-mode-map): Define "\C-c\C-n" as
+	`gnus-namazu-search'.
+
 	* lisp/gnus-namazu.el: New file.
 
 2001-09-27  Katsumi Yamaoka  <yamaoka@jpl.org>
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 11ab2d5..89e8898 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -583,6 +583,7 @@ simple manner.")
     "<" beginning-of-buffer
     ">" end-of-buffer
     "\C-c\C-b" gnus-bug
+    "\C-c\C-n" gnus-namazu-search
     "\C-c\C-s" gnus-group-sort-groups
     "t" gnus-topic-mode
     "\C-c\M-g" gnus-activate-all-groups
diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el
index 55317ea..1f42383 100644
--- 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
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index b1648ad..6b93380 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1512,6 +1512,7 @@ increase the score of each group you read."
     "\M-\C-e" gnus-summary-edit-parameters
     "\M-\C-a" gnus-summary-customize-parameters
     "\C-c\C-b" gnus-bug
+    "\C-c\C-n" gnus-namazu-search
     "*" gnus-cache-enter-article
     "\M-*" gnus-cache-remove-article
     "\M-&" gnus-summary-universal-argument
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 60ff855..da128f3 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2123,6 +2123,9 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.")
 	     (subrp (symbol-function 'base64-encode-string)))
   (require 'base64))
 
+;; To search articles with Namazu.
+(autoload 'gnus-namazu-search "gnus-namazu" nil t)
+
 ;; To make shimbun groups.
 (autoload 'gnus-group-make-shimbun-group "nnshimbun" nil t)