* lisp/net/rcirc.el (rcirc-prompt-for-encryption): Fix bug introduced in last change.

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2011-06-05  Deniz Dogan  <deniz@dogan.se>
+
+	* net/rcirc.el (rcirc-prompt-for-encryption): Fix bug introduced
+	in last change.
+
 2011-06-05  Deniz Dogan  <deniz@dogan.se>
 
 	* net/rcirc.el (rcirc-prompt-for-encryption): New function.

lisp/net/rcirc.el

@@ -594,10 +594,10 @@ SERVER-PLIST is the property list for the server."
   (let ((msg "Encryption (default %s): ")
         (choices '("plain" "tls"))
         (default (or (plist-get server-plist :encryption)
-                     "plain")))
+                     'plain)))
     (intern
      (completing-read (format msg default)
-                      choices nil t "" nil default))))
+                      choices nil t nil nil (symbol-name default)))))
 
 (defun rcirc-keepalive ()
   "Send keep alive pings to active rcirc processes.