;; auto add server
(defmacro de-erc-connect (command server port nick passwd)
"Create interactive command `command', for connecting to an IRC server. The
command uses interactive mode if passed an argument."
(fset command
`(lambda (arg)
(interactive "p")
(if (not (= 1 arg))
(call-interactively 'erc)
;; (erc-tls :server ,server :port ,port :nick ,nick :password ,passwd)))))
(erc :server ,server :port ,port :nick ,nick :password ,passwd)))))
(autoload 'erc "erc" "" t)
(de-erc-connect erc-fnode "irc.freenode.net" 6666 "用记名" "密码")
;; M-x erc-fnode
-