(require 'riece-server)
(require 'riece-user)
(require 'riece-mode)
-(require 'riece-lru)
+(require 'riece-cache)
(defun riece-get-buffer-create (name &optional init-major-mode)
(let ((buffer (get-buffer name)))
(setq identities
(cons (riece-make-identity (symbol-name user) server-name)
identities)))
- (riece-lru-map-hash-obarray riece-user-lru))
+ (riece-cache-hash-obarray riece-user-cache))
identities)))
(defun riece-get-channels-on-server (server-name)
(setq identities
(cons (riece-make-identity (symbol-name channel) server-name)
identities)))
- riece-channel-obarray)
+ (riece-cache-hash-obarray riece-channel-cache))
identities)))
(defun riece-get-identities-on-server (server-name)