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

diff --git a/ChangeLog b/ChangeLog
index 632a5c5..e166eb6 100644 (file)
--- 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 (file)
--- 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)