* riece-message.el (riece-message-make-bracket): Abolish.
authorueno <ueno>
Fri, 30 May 2003 06:04:51 +0000 (06:04 +0000)
committerueno <ueno>
Fri, 30 May 2003 06:04:51 +0000 (06:04 +0000)
* riece-highlight.el (riece-highlight-font-lock-keywords):
Give up to fontify "-nick-" or "-nick server-".

lisp/ChangeLog
lisp/riece-highlight.el
lisp/riece-message.el

index 295536f..dd14f0c 100644 (file)
@@ -1,5 +1,9 @@
 2003-05-30  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece-message.el (riece-message-make-bracket): Abolish.
+       * riece-highlight.el (riece-highlight-font-lock-keywords):
+       Give up to fontify "-nick-" or "-nick server-".
+
        * riece-highlight.el (riece-highlight-font-lock-keywords):
        Simplified regexp.
 
index a9715ef..3c3536d 100644 (file)
 (defcustom riece-highlight-font-lock-keywords
   (append
    (list (list (concat "^" riece-time-prefix-regexp
-                      "\\(<[^>]+>\\|>[^<]+<\\|([^)]+)\\|-[^ ]+ [^-]+-\\|=[^ ]+ [^=]+=\\|\\([+-]\\)[^ ]+\\2\\)")
+                      "\\(<[^>]+>\\|>[^<]+<\\|([^)]+)\\|{[^}]+}\\|=[^=]+=\\)")
               '(1 riece-prefix-face append t)))
    ;; set property to the whole line
    (mapcar
index f2312ad..2bef9f6 100644 (file)
 
 (defun riece-message-make-open-bracket (message)
   "Makes `open-bracket' string for MESSAGE."
-  (riece-message-make-bracket message t))
+  (if (riece-message-own-p message)
+      ">"
+    (if (eq (riece-message-type message) 'notice)
+       "{"
+      (if (riece-message-private-p message)
+         "="
+       (if (riece-message-external-p message)
+           "("
+         "<")))))
 
 (defun riece-message-make-close-bracket (message)
   "Makes `close-bracket' string for MESSAGE."
-  (riece-message-make-bracket message nil))
-
-(defun riece-message-make-bracket (message open-p)
-  (if (eq open-p (riece-message-own-p message))
-      (if (eq (riece-message-type message) 'notice)
-         "-"
-       (if (riece-message-private-p message)
-           (if (riece-message-own-p message)
-               ">"
-             "=")
-         (if (riece-message-external-p message)
-             ")"
-           ">")))
+  (if (riece-message-own-p message)
+      "<"
     (if (eq (riece-message-type message) 'notice)
-       "-"
+       "}"
       (if (riece-message-private-p message)
-         (if (riece-message-own-p message)
-             "<"
-           "=")
+         "="
        (if (riece-message-external-p message)
-           "("
-         "<")))))
+           ")"
+         ">")))))
 
 (defun riece-message-make-name (message)
   "Makes local identity for MESSAGE."