From: ueno <ueno>
Date: Mon, 8 Mar 2004 06:44:50 +0000 (+0000)
Subject: * riece-xface.el (riece-xface-insinuate): Use
X-Git-Tag: riece-0_2_1~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=894c9a5e4300455ae80e11e8e3079c57d5d557f6;p=elisp%2Friece.git

* riece-xface.el (riece-xface-insinuate): Use
riece-user-list-mode-hook to setup riece-update-buffer-functions
in user-list buffer.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 676476b..c64af92 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-03-08  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-xface.el (riece-xface-insinuate): Use
+	riece-user-list-mode-hook to setup riece-update-buffer-functions
+	in user-list buffer.
+
 2004-03-07  Daiki Ueno  <ueno@unixuser.org>
 
 	* Riece: Version 0.2.0 released.
diff --git a/lisp/riece-xface.el b/lisp/riece-xface.el
index dbb8a27..29a71ad 100644
--- a/lisp/riece-xface.el
+++ b/lisp/riece-xface.el
@@ -59,11 +59,10 @@
   '(riece-lsdb))
 
 (defun riece-xface-insinuate ()
-  (add-hook 'riece-startup-hook
+  (add-hook 'riece-user-list-mode-hook
 	    (lambda ()
-	      (with-current-buffer riece-user-list-buffer
-		(add-hook 'riece-update-buffer-functions
-			  'riece-xface-update-user-list-buffer t)))))
+	      (add-hook 'riece-update-buffer-functions
+			'riece-xface-update-user-list-buffer t t))))
 
 (provide 'riece-xface)