From 8ddc92428d0a3841a46a25b0a1308c85bf3d54ac Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Thu, 1 Jun 2006 03:03:00 +0000 Subject: [PATCH] * riece-300.el (riece-handle-353-message): Separate the previous 353 line by " ". --- lisp/ChangeLog | 5 +++++ lisp/riece-300.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 69e442c..f411319 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-06-01 Daiki Ueno + + * riece-300.el (riece-handle-353-message): Separate the previous + 353 line by " ". + 2006-05-29 Daiki Ueno * Riece: Version 3.0.0 released. diff --git a/lisp/riece-300.el b/lisp/riece-300.el index 0e8631f..160f54a 100644 --- a/lisp/riece-300.el +++ b/lisp/riece-300.el @@ -251,7 +251,7 @@ (entry (riece-identity-assoc channel riece-353-message-alist t))) (if entry (setcdr entry - (concat (cdr entry) + (concat (cdr entry) " " (substring string (match-end 0)))) (setq riece-353-message-alist (cons (cons channel (substring string (match-end 0))) @@ -438,7 +438,7 @@ (setq riece-353-message-alist (delq entry riece-353-message-alist))) (while (string-match - (concat "\\([@+]\\)?\\([^ ]+\\) *") + (concat "\\([@+]\\)?\\([^ ]+\\) +") string start) (put-text-property (match-beginning 2) (match-end 2) 'riece-identity -- 2.25.1