X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus.el;h=457c867e7cb84046f96aa1b0f0cf857534bbd8e7;hb=85093239bc794cb948ebbf5a5bd910b3d1c95cec;hp=94f5eb4744c939b9d629b1e438d6ccff407c9b1f;hpb=a539ef5f22a99ad8e8e04ffabb8b97507cb730de;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 94f5eb4..457c867 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3301,7 +3301,7 @@ that that variable is buffer-local to the summary buffers."
 (defun gnus-generate-new-group-name (leaf)
   (let ((name leaf)
 	(num 0))
-    (while (gnus-gethash name gnus-newsrc-hashtb)
+    (while (gnus-group-entry name)
       (setq name (concat leaf "<" (int-to-string (setq num (1+ num))) ">")))
     name))