From 5c1896b3f256d33d6be0c7c732d69ec011c98e10 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 6 Nov 2000 05:30:20 +0000 Subject: [PATCH] (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 , . --- ChangeLog | 10 ++++++++++ lisp/gnus-topic.el | 4 ++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2d21ff9..af8b174 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +2000-11-04 Hermit + + * 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 + + * lisp/gnus-topic.el (gnus-topic-rename): Shrink the length of the + prompt string. + 2000-11-06 Katsumi Yamaoka * 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)) -- 1.7.10.4