# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1240026297 0
# Node ID 5c993497b6eebf22847001376d19e8258fbe9234
# Parent  3df429718fa4a30835dbaa449a3ce60247bef131
* net/rcirc.el (rcirc): Use correct property names (Bug#3037).

diff -r 3df429718fa4 -r 5c993497b6ee lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Apr 18 03:39:28 2009 +0000
+++ b/lisp/ChangeLog	Sat Apr 18 03:44:57 2009 +0000
@@ -1,3 +1,7 @@
+2009-04-18  Yann Hodique  <yann.hodique@gmail.com>  (tiny change)
+
+	* net/rcirc.el (rcirc): Use correct property names (Bug#3037).
+
 2009-04-18  Chong Yidong  <cyd@stupidchicken.com>
 
 	* thingatpt.el (thing-at-point-bounds-of-list-at-point): New
diff -r 3df429718fa4 -r 5c993497b6ee lisp/net/rcirc.el
--- a/lisp/net/rcirc.el	Sat Apr 18 03:39:28 2009 +0000
+++ b/lisp/net/rcirc.el	Sat Apr 18 03:44:57 2009 +0000
@@ -375,16 +375,16 @@
 	     (server-plist (cdr (assoc-string server rcirc-server-alist)))
 	     (port (read-string "IRC Port: "
 				(number-to-string
-				 (or (plist-get server-plist 'port)
+				 (or (plist-get server-plist :port)
 				     rcirc-default-port))))
 	     (nick (read-string "IRC Nick: "
-				(or (plist-get server-plist 'nick)
+				(or (plist-get server-plist :nick)
 				    rcirc-default-nick)))
 	     (channels (split-string
 			(read-string "IRC Channels: "
 				     (mapconcat 'identity
 						(plist-get server-plist
-							   'channels)
+							   :channels)
 						" "))
 			"[, ]+" t)))
 	(rcirc-connect server port nick rcirc-default-user-name