From: yamaoka <yamaoka>
Date: Fri, 11 Feb 2005 23:55:56 +0000 (+0000)
Subject: Synch to No Gnus 200502111809.
X-Git-Tag: t-gnus-6_17_4-quimby-~565
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=749a1a99693e2a39bde522b49c37ec3de5486709;p=elisp%2Fgnus.git-

Synch to No Gnus 200502111809.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 18ecc46..de5b04c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-11  Teodor Zlatanov  <tzz@lifelogs.com>
+
+	* gnus-registry.el (gnus-registry-delete-group): small bug leaves
+	an ID in the registry even if it has no groups
+
 2005-02-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-art.el (gnus-mime-jka-compr-maybe-uncompress): Remove;
diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 736db5d..1daa0fa 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -621,7 +621,9 @@ Returns the first place where the trail finds a group name."
       (when gnus-registry-trim-articles-without-groups
 	(unless (gnus-registry-group-count id)
 	  (gnus-registry-delete-id id)))
-      (gnus-registry-store-extra-entry id 'mtime (current-time)))))
+      ;; is this ID still in the registry?
+      (when (gethash id gnus-registry-hashtb)
+	(gnus-registry-store-extra-entry id 'mtime (current-time))))))
 
 (defun gnus-registry-delete-id (id)
   "Delete a message ID from the registry."