From f26fb9c30e772e4993f0a2a47a943f3791e58a16 Mon Sep 17 00:00:00 2001 From: bg66 Date: Thu, 1 May 2003 03:51:45 +0000 Subject: [PATCH] * liece-channel.el (liece-channel-list-redisplay-buffer): Search a channel correctly. --- lisp/ChangeLog | 5 +++++ lisp/liece-channel.el | 9 ++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) 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 + + * liece-channel.el (liece-channel-list-redisplay-buffer): Search a + channel correctly. + 2002-10-11 Yoichi NAKAYAMA * 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) -- 1.7.10.4