From: yamaoka <yamaoka>
Date: Tue, 5 Nov 2002 06:42:57 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_10-00-quimby~106
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9ee574cce242244486390ee57aa7715630afafd6;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd00797..d41242f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-04  Jesper Harder  <harder@ifa.au.dk>
+
+	* gnus-group.el (gnus-group-delete-group):
+	gnus-cache-active-hashtb might be void.
+
 2002-11-02  Simon Josefsson  <jas@extundo.com>
 
 	* pgg-gpg.el (pgg-gpg-encrypt-region): Makes PGG respect the
@@ -10,10 +15,10 @@
 	charset.
 
 2002-10-31  Ted Zlatanov <tzz@lifelogs.com>
-	From Alex Schroeder  <alex@emacswiki.org>
+	From Alex Schroeder <alex@emacswiki.org>
 	* spam-stat.el (spam-stat-process-directory): add dir to message
 	(spam-stat-reduce-size): No longer remove words
-	with values close to 0.5, because the default value is 0.2.  
+	with values close to 0.5, because the default value is 0.2.
 
 2002-10-31  Kai Gro,A_(Bjohann  <kai.grossjohann@uni-duisburg.de>
 
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 7c1916e..2b6bfb2 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2247,7 +2247,8 @@ doing the deletion."
 	  (gnus-group-goto-group group)
 	  (gnus-group-kill-group 1 t)
 	  (gnus-sethash group nil gnus-active-hashtb)
-	  (when gnus-cache-active-hashtb
+	  (when (and (boundp 'gnus-cache-active-hashtb)
+		     gnus-cache-active-hashtb)
 	    (gnus-sethash group nil gnus-cache-active-hashtb)
 	    (setq gnus-cache-active-altered t))
 	  t))