From d5c0dcc1b60a5c3038bf9977fdd1230e5b159ffc Mon Sep 17 00:00:00 2001 From: keiichi Date: Wed, 23 Aug 2000 06:05:10 +0000 Subject: [PATCH] (gnus-group-rename-group): Inhibit renaming of zombie or killed groups. --- lisp/gnus-group.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 01d111e..a3ab7f3 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -1966,10 +1966,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