(gnus-registry-install): add an initial

registry read to the loading when gnus-registry-install is set

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d61fb4..0fcd7d3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-26  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-registry.el (gnus-registry-install): add an initial
+       registry read to the loading when gnus-registry-install is set
+
 2003-07-26  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@gmx.net>
 
        * flow-fill.el (fill-flowed): Empty lines separate paragraphs

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 0766da7..c7663f5 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -458,7 +458,8 @@ Returns the first place where the trail finds a group name."
   (remove-hook 'gnus-summary-prepare-hook 'gnus-registry-register-message-ids))
 
 (when gnus-registry-install
-  (gnus-registry-install-hooks))
+  (gnus-registry-install-hooks)
+  (gnus-registry-read))
 
 ;; TODO: a lot of things