*** empty log message ***

[gnus] / lisp / gnus.el

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 48b1179..51fb590 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -28,7 +28,7 @@
 
 (eval '(run-hooks 'gnus-load-hook))
 
-(defconst gnus-version-number "0.9"
+(defconst gnus-version-number "0.14"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
@@ -794,15 +794,15 @@ Allow completion over sensible values."
      ((equal method "")
       (setq method gnus-select-method))
      ((assoc method gnus-valid-select-methods)
-      (list method
+      (list (intern method)
            (if (memq 'prompt-address
                      (assoc method gnus-valid-select-methods))
                (read-string "Address: ")
              "")))
      ((assoc method gnus-server-alist)
-      (list method))
+      method)
      (t
-      (list method "")))))
+      (list (intern method) "")))))
 
 ;;; User-level commands.