* riece-user.el: Require 'riece-lru.

[riece] / lisp / riece-server.el

diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index be1c8a7..4d8a1f3 100644 (file)
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -29,6 +29,7 @@
 (require 'riece-coding)                        ;riece-default-coding-system
 (require 'riece-identity)
 (require 'riece-compat)
+(require 'riece-lru)
 
 (eval-and-compile
   (defvar riece-server-keyword-map
@@ -271,6 +272,8 @@ the `riece-server-keyword-map' variable."
     (make-local-variable 'riece-channel-obarray)
     (setq riece-channel-obarray (make-vector riece-channel-obarray-size 0))
     (make-local-variable 'riece-coding-system)
+    (make-local-variable 'riece-user-lru)
+    (setq riece-user-lru (riece-make-lru riece-user-lru-max-size))
     (buffer-disable-undo)
     (erase-buffer)))