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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c7628f281989ffc01d34569542be21e0b27a9e3c..d23d65de93ed05a23172179ff354eaccd6674085 100644 (file)
--- 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 f63237f58ca287e3b39998ec5a9d9676b87e5bbf..1f312843f086fef69d9a364d5cbce0fbbe0b3d07 100644 (file)
--- 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