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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f5a26ed8482b2413cc677a7fbeeb022be20dd362..a98aa1ba52d1479f20da72a6e564cbf9c2dff012 100644 (file)
--- a/lisp/ChangeLog
+++ b/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.

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index bf4faba519791e62e20c62fbcde1b7a7b5499e42..70190867e89cfd4b5f6240e56ffe38ed4f426377 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/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.