Synch with Oort Gnus.

[elisp/gnus.git-] / lisp / gnus-srvr.el

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 8fc1dcd..98c24ad 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -72,7 +72,7 @@ See (gnus)Formatting Variables."
   "Whether server browsing should take place in the group buffer.
 If nil, a faster, but more primitive, buffer is used instead."
   :group 'gnus-server-visual
-  :type 'string)
+  :type 'boolean)
 
 ;;; Internal variables.
 
@@ -380,7 +380,11 @@ The following commands are available:
      (concat "(gnus-server-set-info \"" server "\" '"
             (prin1-to-string info) ")"))
     (let* ((server (nth 1 info))
-          (entry (assoc server gnus-server-alist)))
+          (entry (assoc server gnus-server-alist))
+          (cached (assoc server gnus-server-method-cache)))
+      (if cached
+         (setq gnus-server-method-cache
+               (delq cached gnus-server-method-cache)))
       (if entry (setcdr entry info)
        (setq gnus-server-alist
              (nconc gnus-server-alist (list (cons server info))))))))
@@ -717,7 +721,7 @@ The following commands are available:
            (ignore-errors
              (push (cons
                     (if (eq (char-after) ?\")
-                        (mm-string-as-unibyte (read cur))
+                        (read cur)
                       (let ((p (point)) (name ""))
                         (skip-chars-forward "^ \t\\\\")
                         (setq name (buffer-substring p (point)))
@@ -727,7 +731,7 @@ The following commands are available:
                           (skip-chars-forward "^ \t\\\\")
                           (setq name (concat name (buffer-substring
                                                    p (point)))))
-                        (mm-string-as-unibyte name)))
+                        name))
                     (let ((last (read cur)))
                       (cons (read cur) last)))
                    groups))