X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-300.el;h=2f758dca68632d7e8574098751b97d602e0c9390;hp=70032e895317e74fe3119b5d73abb26117352632;hb=536a96df7cd2a2e55f06d2b4196b62ebb347d34b;hpb=cd668cae2b8e82bd49b44358eaff4ab16167d7fe diff --git a/lisp/riece-300.el b/lisp/riece-300.el index 70032e8..2f758dc 100644 --- a/lisp/riece-300.el +++ b/lisp/riece-300.el @@ -40,8 +40,7 @@ " "))) (while replies (if (string-match - (concat "^\\(" riece-user-regexp - "\\)\\(\\*\\)?=\\([-+]\\)\\([^ ]+\\)") + (concat "^\\([^ ]+\\)\\(\\*\\)?=\\([-+]\\)\\([^ ]+\\)") (car replies)) (let ((user (match-string 1 (car replies))) (operator (not (null (match-beginning 2)))) @@ -159,7 +158,7 @@ "\n")))) (defun riece-handle-313-message (prefix number name string) - (if (string-match (concat "^" riece-user-regexp) string) + (if (string-match "^[^ ]+" string) (let ((user (match-string 0 string))) (riece-insert-info (list riece-dialogue-buffer riece-others-buffer)