From: yamaoka <yamaoka>
Date: Mon, 6 Nov 2000 05:30:20 +0000 (+0000)
Subject: (gnus-group-topic-map): Define "T" prefix command in `gnus-topic-mode-map'
X-Git-Tag: t-gnus-6_14-quimby-before-installer-changed-~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5c1896b3f256d33d6be0c7c732d69ec011c98e10;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 2d21ff9..af8b174 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-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
--- 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))