Mercurial > emacs

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rcirc-authenticate): Simplify previous change.
author Glenn Morris <rgm@gnu.org>
date Fri, 16 Oct 2009 16:03:33 +0000
parents 01e892771abe
children df4934f25eef
line wrap: on
line diff
--- a/lisp/net/rcirc.el	Fri Oct 16 15:20:51 2009 +0000
+++ b/lisp/net/rcirc.el	Fri Oct 16 16:03:33 2009 +0000
@@ -2561,12 +2561,10 @@
 	(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))))
+		  (concat "PRIVMSG " (or (cadr args) "nickserv")
+                          " :identify " (car args))))
 		((equal method 'chanserv)
 		 (rcirc-send-string
 		  process