Initialize the registry when gnus-registry-install

is t.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99f389b..4dc27a6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-08  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-registry.el: Initialize the registry when gnus-registry-install
+       is t.
+
 2008-04-02  Simon Josefsson  <simon@josefsson.org>
 
        * imap.el (imap-enable-exchange-bug-workaround): New variable.

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 7cdb075..687a8a2 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -1115,7 +1115,8 @@ Returns the first place where the trail finds a group name."
 ;;; we could call it here: (customize-variable 'gnus-registry-install)
   gnus-registry-install)
 
-(when (gnus-registry-install-p)
+(when (or (eq gnus-registry-install t)
+         (gnus-registry-install-p))
   (gnus-registry-initialize))
 
 ;; TODO: a few things