From: bg66 <bg66>
Date: Fri, 2 May 2003 08:14:41 +0000 (+0000)
Subject: * liece-channel.el (liece-channel-list-redisplay-buffer): Fix last change.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=78cb8cb1c5195fe0e1cdfd0e378ff2d57be08514;p=elisp%2Fliece.git

* liece-channel.el (liece-channel-list-redisplay-buffer): Fix last change.
---

diff --git a/lisp/liece-channel.el b/lisp/liece-channel.el
index 13595e4..fa46f09 100644
--- a/lisp/liece-channel.el
+++ b/lisp/liece-channel.el
@@ -542,19 +542,19 @@ If NOSW is non-nil do not switch to newly created channel."
       (save-selected-window
 	(select-window window)
 	(goto-char (point-min))
-	(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 1))))
-	    (liece-map-overlays
-	     (lambda (ovl)
-	       (if (overlay-get ovl 'liece-channel)
-		   (delete-overlay ovl))))
-	    (overlay-put overlay 'face 'underline)
-	    (overlay-put overlay 'liece-channel t)))))))
+	(when (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 1))))
+	      (liece-map-overlays
+	       (lambda (ovl)
+		 (if (overlay-get ovl 'liece-channel)
+		     (delete-overlay ovl))))
+	      (overlay-put overlay 'face 'underline)
+	      (overlay-put overlay 'liece-channel t))))))))
 
 (provide 'liece-channel)