(gnus-group-topic-map): Define "T" prefix command in `gnus-topic-mode-map'

instead of `gnus-group-mode-map'.
(gnus-topic-rename): Shrink the length of the prompt string.
;; Patches from Hermit <hermit@koka-in.org>, <hermit@tomato.saino.ne.jp>.

diff --git a/ChangeLog b/ChangeLog
index 2d21ff9..af8b174 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2000-11-04  Hermit  <hermit@koka-in.org>
+
+       * lisp/gnus-topic.el (gnus-group-topic-map): Define "T" prefix
+       command in `gnus-topic-mode-map' instead of `gnus-group-mode-map'.
+
+2000-10-25  Hermit  <hermit@tomato.saino.ne.jp>
+
+       * lisp/gnus-topic.el (gnus-topic-rename): Shrink the length of the
+       prompt string.
+
 2000-11-06  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * lisp/Makefile.in (install): Use the lisp function

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index 8435bb1..1181d67 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -1009,7 +1009,7 @@ articles in the topic and its subtopics."
     gnus-mouse-2 gnus-mouse-pick-topic)
 
   ;; Define a new submap.
-  (gnus-define-keys (gnus-group-topic-map "T" gnus-group-mode-map)
+  (gnus-define-keys (gnus-group-topic-map "T" gnus-topic-mode-map)
     "#" gnus-topic-mark-topic
     "\M-#" gnus-topic-unmark-topic
     "n" gnus-topic-create-topic
@@ -1426,7 +1426,7 @@ If RECURSIVE is t, unmark its subtopics too."
   (interactive
    (let ((topic (gnus-current-topic)))
      (list topic
-          (read-string (format "Rename %s to: " topic)))))
+          (read-string "Rename topic to: " topic))))
   ;; Check whether the new name exists.
   (when (gnus-topic-find-topology new-name)
     (error "Topic '%s' already exists" new-name))