From: bg66 <bg66>
Date: Thu, 1 May 2003 03:51:45 +0000 (+0000)
Subject: * liece-channel.el (liece-channel-list-redisplay-buffer): Search a
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f26fb9c30e772e4993f0a2a47a943f3791e58a16;p=elisp%2Fliece.git

* liece-channel.el (liece-channel-list-redisplay-buffer): Search a
channel correctly.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 580114e..7e04f2e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-30  OHASHI Akira  <bg66@koka-in.org>
+
+	* liece-channel.el (liece-channel-list-redisplay-buffer): Search a
+	channel correctly.
+
 2002-10-11  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* liece-emacs.el: Require pces to avoid compile error.
diff --git a/lisp/liece-channel.el b/lisp/liece-channel.el
index 8c132a2..13595e4 100644
--- a/lisp/liece-channel.el
+++ b/lisp/liece-channel.el
@@ -542,10 +542,13 @@ If NOSW is non-nil do not switch to newly created channel."
       (save-selected-window
 	(select-window window)
 	(goto-char (point-min))
-	(search-forward chnl nil t)
-	(set-window-point window (match-beginning 0))
+	(re-search-forward (concat "^ ?[0-9]+: \\("
+				   (regexp-quote chnl) "\\)\\( "
+				   (regexp-quote liece-channel-unread-character)
+				   "\\|\\)$") nil t)
+	(set-window-point window (match-beginning 1))
 	(when liece-highlight-mode
-	  (let ((overlay (make-overlay (point)(match-end 0))))
+	  (let ((overlay (make-overlay (point) (match-end 1))))
 	    (liece-map-overlays
 	     (lambda (ovl)
 	       (if (overlay-get ovl 'liece-channel)