From: keiichi <keiichi>
Date: Wed, 23 Aug 2000 06:05:10 +0000 (+0000)
Subject: (gnus-group-rename-group): Inhibit renaming of zombie or killed groups.
X-Git-Tag: nana-gnus-7_1_0_25~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d5c0dcc1b60a5c3038bf9977fdd1230e5b159ffc;p=elisp%2Fgnus.git-

(gnus-group-rename-group): Inhibit renaming of zombie or killed groups.
---

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)