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

channel correctly.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 580114e..7e04f2e 100644 (file)
--- 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 (file)
--- 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)