From: ueno Date: Thu, 1 Jun 2006 03:03:00 +0000 (+0000) Subject: * riece-300.el (riece-handle-353-message): Separate the previous X-Git-Tag: riece-3_1_0~7 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=21c0c346e07f2f117c4c73db3191b3ea0d23b5f1;p=elisp%2Friece.git * riece-300.el (riece-handle-353-message): Separate the previous 353 line by " ". --- 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