Mercurial > emacs

changeset 108947:ca556d6b7c7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Conflict resolution fixup
author Andreas Schwab <schwab@linux-m68k.org>
date Thu, 10 Jun 2010 00:34:08 +0200
parents d418516def73
children c3f02c0c5924 4a18c8460141
files lisp/ChangeLog lisp/net/rcirc.el
diffstat 2 files changed, 2 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Jun 10 00:08:50 2010 +0200
+++ b/lisp/ChangeLog	Thu Jun 10 00:34:08 2010 +0200
@@ -76,13 +76,6 @@
 	* emacs-lisp/smie.el (smie-indent-keyword): Remove special case that
 	can be handled with a ((:before "fn") (:prev "=>" parent)) rule.
 
-2010-06-07  Jonathan Rockway  <jon@jrock.us>
-
-	* net/rcirc.el: Add support for password authentication.
-	(rcirc-server-alist): Add :password keyword.
-	(rcirc): Ask for a password, or get it from the server's alist.
-	(rcirc-connect): Add password argument.  Pass it to server.
-
 2010-06-07  Martin Pohlack  <mp26@os.inf.tu-dresden.de>
 
 	* iimage.el: Remove images as soon as the underlying text is modified.
--- a/lisp/net/rcirc.el	Thu Jun 10 00:08:50 2010 +0200
+++ b/lisp/net/rcirc.el	Thu Jun 10 00:34:08 2010 +0200
@@ -81,11 +81,6 @@
 VALUE must be a string.  If absent, `rcirc-default-user-name' is
 used.
 
-`:password'
-
-VALUE must be a string.  If absent, no PASS command will be sent
-to the server.
-
 `:full-name'
 
 VALUE must be a string.  If absent, `rcirc-default-full-name' is
@@ -104,7 +99,6 @@
 		:value-type (plist :options ((:nick string)
 					     (:port integer)
 					     (:user-name string)
-					     (:password string)
 					     (:full-name string)
 					     (:pass string)
 					     (:channels (repeat string)))))
@@ -435,8 +429,7 @@
               (pass (plist-get (cdr c) :pass))
 	      (full-name (or (plist-get (cdr c) :full-name)
 			     rcirc-default-full-name))
-	      (channels (plist-get (cdr c) :channels))
-              (password (plist-get (cdr c) :password)))
+	      (channels (plist-get (cdr c) :channels)))
 	  (when server
 	    (let (connected)
 	      (dolist (p (rcirc-process-list))
@@ -445,7 +438,7 @@
 	      (if (not connected)
 		  (condition-case e
 		      (rcirc-connect server port nick user-name pass
-				     full-name channels password)
+				     full-name channels)
 		    (quit (message "Quit connecting to %s" server)))
 		(with-current-buffer (process-buffer connected)
 		  (setq connected-servers