From: yamaoka <yamaoka>
Date: Mon, 6 Nov 2000 05:31:05 +0000 (+0000)
Subject: (gnus-group-topic-map): Define "T" prefix command in `gnus-topic-mode-map'
X-Git-Tag: t-gnus-6_14_5-07~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2994afca48cc579a46b23144c610b8e09f8420f0;p=elisp%2Fgnus.git-

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