projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed.
[riece]
/
lisp
/
riece-300.el
diff --git
a/lisp/riece-300.el
b/lisp/riece-300.el
index
70032e8
..
109f2f2
100644
(file)
--- a/
lisp/riece-300.el
+++ b/
lisp/riece-300.el
@@
-25,6
+25,9
@@
;;; Code:
(require 'riece-misc)
;;; Code:
(require 'riece-misc)
+(require 'riece-naming)
+(require 'riece-signal)
+(require 'riece-display)
(eval-when-compile
(autoload 'riece-default-handle-numeric-reply "riece-handle"))
(eval-when-compile
(autoload 'riece-default-handle-numeric-reply "riece-handle"))
@@
-40,8
+43,7
@@
" ")))
(while replies
(if (string-match
" ")))
(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))))
(car replies))
(let ((user (match-string 1 (car replies)))
(operator (not (null (match-beginning 2))))
@@
-159,7
+161,7
@@
"\n"))))
(defun riece-handle-313-message (prefix number name string)
"\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)
(let ((user (match-string 0 string)))
(riece-insert-info
(list riece-dialogue-buffer riece-others-buffer)