+ (if (and (string-equal (source msg) "NickServ")
+ (string-equal "owned by someone else" (trailing-argument msg)))
+ (let ((logger (find-logger-with-connection (connection msg))))
+ (if logger
+ (privmsg (connection msg) (source msg) (format nil "IDENTIFY ~A" (password logger)))
+ (warn "NickServ asks for identity with connection not found.")))
+ (output-event msg :notice (first (arguments msg)) (trailing-argument msg))))