comparison lisp/net/rcirc.el @ 105637:a9352fba1fd2

(rcirc-authenticate): Simplify previous change.

105636:889d12d7c95b

	    (method (cadr i))
	    (args (cdddr i)))
	(when (and (string-match server rcirc-server)
		   (string-match nick rcirc-nick))
	  (cond ((equal method 'nickserv)
		 (let ((password (car args))
		       (nickserv-nick (or (cadr args) "nickserv")))
		 (rcirc-send-string
		  process
		  (concat "PRIVMSG " nickserv-nick " :identify "
			  password))))
		((equal method 'chanserv)
		 (rcirc-send-string
		  process
		  (concat
		   "PRIVMSG chanserv :identify "

105637:a9352fba1fd2

	    (method (cadr i))
	    (args (cdddr i)))
	(when (and (string-match server rcirc-server)
		   (string-match nick rcirc-nick))
	  (cond ((equal method 'nickserv)
		 (rcirc-send-string
		  process
		  (concat "PRIVMSG " (or (cadr args) "nickserv")
                          " :identify " (car args))))
		((equal method 'chanserv)
		 (rcirc-send-string
		  process
		  (concat
		   "PRIVMSG chanserv :identify "