From: yamaoka <yamaoka>
Date: Wed, 23 Aug 2000 05:57:37 +0000 (+0000)
Subject: (gnus-group-rename-group): Inhibit renaming of zombie or killed groups.
X-Git-Tag: t-gnus-6_14_5-04~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=232058242e370c3400837e94fe4efdad99bd1fc0;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index 632a5c5..e166eb6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,13 +1,19 @@
+2000-08-23  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-group.el (gnus-group-rename-group): Inhibit renaming of
+	zombie or killed groups.
+
 2000-08-19  TSUCHIYA Masatoshi  <tsuchiya@pine.kuee.kyoto-u.ac.jp>
 
-	* 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  <tsuchiya@pine.kuee.kyoto-u.ac.jp>
             Akihiro Arisawa  <ari@atesoft.advantest.co.jp>
 
-	* nnshimbun.el: Add `mew' and `xemacs' support.
+	* lisp/nnshimbun.el: Add `mew' and `xemacs' support.
 
 2000-08-09  Katsumi Yamaoka <yamaoka@jpl.org>
 
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)