(if entry
(setcdr entry
(concat (cdr entry)
- (substring string (match-end 0))))
+ (substring string (match-end 0)) " "))
(setq riece-353-message-alist
- (cons (cons channel (substring string (match-end 0)))
+ (cons (cons channel
+ (concat (substring string (match-end 0)) " "))
riece-353-message-alist))))))
(defun riece-handle-322-message (prefix number name decoded)
(defun riece-handle-341-message (prefix number name string)
(if (string-match "^\\([^ ]+\\) " string)
- (let* ((channel (match-string 1 string))
- (user (substring string (match-end 0)))
+ (let* ((channel (substring string (match-end 0)))
+ (user (match-string 1 string))
(channel-identity (riece-make-identity channel riece-server-name))
(buffer (riece-channel-buffer channel-identity)))
(riece-insert-info buffer (concat "Inviting " user "\n"))
(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