* net/rcirc.el (rcirc): Use correct property names (Bug#3037).

2 files changed, 7 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c7628f28198..d23d65de93e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index f63237f58ca..1f312843f08 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -375,16 +375,16 @@ If ARG is non-nil, instead prompt for connection parameters."
              (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