(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 a7f08b0..196d9e4 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-05  Tetsuo Tsukamoto  <czkmt@remus.dti.ne.jp>
 
        * lisp/smiley.el (smiley-deformed-regexp-alist): Modify regexp for

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index 43a3c18..63490a6 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -952,7 +952,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
@@ -1340,7 +1340,7 @@ If COPYP, copy the groups instead."
   (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))