From 232058242e370c3400837e94fe4efdad99bd1fc0 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 23 Aug 2000 05:57:37 +0000 Subject: [PATCH] (gnus-group-rename-group): Inhibit renaming of zombie or killed groups. --- ChangeLog | 10 ++++++++-- lisp/gnus-group.el | 6 ++++-- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 632a5c5..e166eb6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,13 +1,19 @@ +2000-08-23 Katsumi Yamaoka + + * lisp/gnus-group.el (gnus-group-rename-group): Inhibit renaming of + zombie or killed groups. + 2000-08-19 TSUCHIYA Masatoshi - * nnshimbun.el (nnshimbun-type-definition): Follow changes of ZDNet. + * lisp/nnshimbun.el (nnshimbun-type-definition): Follow changes of + ZDNet. (nnshimbun-make-text-or-html-contents): Ditto. (nnshimbun-make-html-contents): Ditto. 2000-08-18 TSUCHIYA Masatoshi Akihiro Arisawa - * nnshimbun.el: Add `mew' and `xemacs' support. + * lisp/nnshimbun.el: Add `mew' and `xemacs' support. 2000-08-09 Katsumi Yamaoka diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 7367cd4..b2e4372 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -2055,10 +2055,12 @@ and NEW-NAME will be prompted for." (gnus-message 6 "Renaming group %s to %s..." group new-name) (prog1 - (if (not (gnus-request-rename-group group new-name)) + (if (progn + (gnus-group-goto-group group) + (not (when (< (gnus-group-group-level) gnus-level-zombie) + (gnus-request-rename-group group new-name)))) (gnus-error 3 "Couldn't rename group %s to %s" group new-name) ;; We rename the group internally by killing it... - (gnus-group-goto-group group) (gnus-group-kill-group) ;; ... changing its name ... (setcar (cdar gnus-list-of-killed-groups) new-name) -- 1.7.10.4