(defun my-erc-nofail (proc parsed)
  (let ((nick (car (erc-parse-user (erc-response.sender parsed))))
	(target (car (erc-response.command-args parsed)))
	(msg (erc-response.contents parsed)))
    (when (and (erc-current-nick-p target) (not (erc-is-message-ctcp-and-not-action-p msg)))
      (remove-if-not 'stringp
		     (mapcar (lambda ()
			       ((if (and (member 'nick (car nick-trigger-response)) (string-match (nth 1 (nick-trigger-response)) msg)) (add-to-list responses (nth 2 (nick-trigger-response)))))
		     ;; if response not nil
		     )))