* riece-lsdb.el (riece-lsdb-lookup-records): Build

riece-lsdb-cache if necessary.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 759e3e9..c4ff54a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-14  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * riece-lsdb.el (riece-lsdb-lookup-records): Build
+       riece-lsdb-cache if necessary.
+
 2004-01-29  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-ctcp.el (riece-handle-ctcp-version-request): Format target

diff --git a/lisp/riece-lsdb.el b/lisp/riece-lsdb.el
index 4ec0f5b..9cfe4ce 100644 (file)
--- a/lisp/riece-lsdb.el
+++ b/lisp/riece-lsdb.el
@@ -62,6 +62,8 @@
 
 (defun riece-lsdb-lookup-records (user)
   (lsdb-maybe-load-hash-tables)
+  (unless riece-lsdb-cache
+    (lsdb-rebuild-secondary-hash-tables))
   (let ((names (lsdb-gethash (riece-format-identity user t)
                             riece-lsdb-cache))
        records)