(defun riece-handle-ctcp-request (prefix string)
(when (and prefix string
(riece-prefix-nickname prefix))
- (let* ((user (riece-prefix-nickname prefix))
- (parameters (riece-split-parameters string))
- (targets (split-string (pop parameters) ","))
- (message (pop parameters)))
+ (let* ((parameters (riece-split-parameters string))
+ (targets (split-string (car parameters) ","))
+ (message (nth 1 parameters)))
(if (string-match "\1\\([^ ]+\\)\\( .+\\)?\1" message)
(let ((request (downcase (match-string 1 message))))
(if (match-beginning 2)
(defun riece-handle-ctcp-response (prefix string)
(when (and prefix string
(riece-prefix-nickname prefix))
- (let* ((user (riece-prefix-nickname prefix))
- (parameters (riece-split-parameters string))
- (targets (split-string (pop parameters) ","))
- (message (pop parameters)))
+ (let* ((parameters (riece-split-parameters string))
+ (targets (split-string (car parameters) ","))
+ (message (nth 1 parameters)))
(if (string-match "\1\\([^ ]+\\)\\( .+\\)?\1" message)
(let ((response (downcase (match-string 1 message))))
(if (match-beginning 2)