* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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))))))