Function: url-irc

url-irc is an autoloaded and byte-compiled function defined in url-irc.el.gz.

Signature

(url-irc URL)

Aliases

url-ircs

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-irc.el.gz
;;;###autoload
(defun url-irc (url)
  (let* ((host (url-host url))
	 (port (url-port url))
	 (pass (url-password url))
	 (user (url-user url))
         (chan (url-filename url))
         (type (url-type url)))
    (if (url-target url)
	(setq chan (concat chan "#" (url-target url))))
    (if (string-match "^/" chan)
	(setq chan (substring chan 1 nil)))
    (if (= (length chan) 0)
	(setq chan nil))
    (condition-case nil
        (funcall url-irc-function host port chan user pass type)
      (wrong-number-of-arguments
       (display-warning 'url
                        (concat "Incompatible value for `url-irc-function'."
                                " Likely not expecting a 6th (SCHEME) arg."))
       (funcall url-irc-function host port chan user pass)))
    nil))