* 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 (file)
--- 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 (file)
--- 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 (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

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index b1648ad..6b93380 100644 (file)
--- 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 (file)
--- 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)