From: bg66 <bg66>
Date: Sat, 3 Nov 2001 05:24:03 +0000 (+0000)
Subject: * liece-emacs.el (liece-emacs-unread-mark): Use regexp-quote.
X-Git-Tag: liece-2_0_0-pre1~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dee6073aed42259847c33a50f40ff71aaf00c851;p=elisp%2Fliece.git

* liece-emacs.el (liece-emacs-unread-mark): Use regexp-quote.
(liece-emacs-read-mark): Ditto.
* liece-xemacs.el (liece-xemacs-unread-mark): Ditto.
(liece-xemacs-read-mark): Ditto.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46efc2b..3753336 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-11-03  OHASHI Akira  <bg66@koka-in.org>
+
+        * liece-emacs.el (liece-emacs-unread-mark): Use regexp-quote.
+        (liece-emacs-read-mark): Ditto.
+        * liece-xemacs.el (liece-xemacs-unread-mark): Ditto.
+        (liece-xemacs-read-mark): Ditto.
+
 2001-10-07   Daiki Ueno  <ueno@unixuser.org>
 
 	* liece-misc.el (liece-subtract-time): New function.
diff --git a/lisp/liece-emacs.el b/lisp/liece-emacs.el
index 92b2c9d..9411f14 100644
--- a/lisp/liece-emacs.el
+++ b/lisp/liece-emacs.el
@@ -217,7 +217,8 @@
       (with-current-buffer liece-channel-list-buffer
         (let ((buffer-read-only nil))
 	  (goto-char (point-min))
-	  (when (re-search-forward (concat "^ ?[0-9]+: " chnl "$") nil t)
+	  (when (re-search-forward (concat "^ ?[0-9]+: " (regexp-quote chnl)
+					   "$") nil t)
             (goto-char (match-end 0))
 	    (insert (concat " " liece-channel-unread-character)))))))
 
@@ -227,7 +228,7 @@
         (let ((buffer-read-only nil))
 	  (goto-char (point-min))
 	  (when (re-search-forward
-		 (concat "^ ?[0-9]+: " chnl " "
+		 (concat "^ ?[0-9]+: " (regexp-quote chnl) " "
 			 liece-channel-unread-character "$") nil t)
             (goto-char (- (match-end 0) 2))
 	    (delete-char 2))))))
diff --git a/lisp/liece-xemacs.el b/lisp/liece-xemacs.el
index d3cf76c..db7609c 100644
--- a/lisp/liece-xemacs.el
+++ b/lisp/liece-xemacs.el
@@ -569,7 +569,8 @@ If ARG is given, don't hide splash buffer."
 				      :data liece-channel-unread-character)))))
 	       ext)
 	  (goto-char (point-min))
-	  (when (re-search-forward (concat "^ ?[0-9]+: " chnl "$") nil t)
+	  (when (re-search-forward (concat "^ ?[0-9]+: " (regexp-quote chnl)
+					   "$") nil t)
             (goto-char (match-end 0))
 	    (insert " ")
 	    (setq ext (make-extent (match-end 0) (1+ (match-end 0))))
@@ -580,7 +581,8 @@ If ARG is given, don't hide splash buffer."
       (with-current-buffer liece-channel-list-buffer
         (let ((buffer-read-only nil))
 	  (goto-char (point-min))
-	  (when (re-search-forward (concat "^ ?[0-9]+: " chnl " $") nil t)
+	  (when (re-search-forward (concat "^ ?[0-9]+: " (regexp-quote chnl)
+					   " $") nil t)
             (goto-char (1- (match-end 0)))
 	    (delete-char 1))))))