(add-to-list 'load-path "d:/emacs-21.3/site-lisp")
(eval-after-load "rcirc"                ; for emacs 21
  '(if (not (functionp 'irc))
       (defun irc (x)
         (interactive "P")
         (if x
             (call-interactively 'rcirc)
             (rcirc rcirc-server rcirc-port rcirc-nick
                    (rcirc-startup-channels rcirc-server))))))