(nnimap-update-info): Rely more on the current active than the param

[gnus] / lisp / gnus-group.el

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 92423cb..b92b608 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2191,7 +2191,7 @@ if it is not a list."
                                      (or hist 'gnus-group-history)
                                      def))
     (if (if (listp collection)
-           (member group choices)
+           (member group (mapcar 'symbol-name collection))
          (symbol-value (intern-soft group collection)))
        group
       (mm-encode-coding-string group (gnus-group-name-charset nil group)))))
@@ -3027,7 +3027,7 @@ If SOLID (the prefix), create a solid group."
                  (nnweb-ephemeral-p t))))
     (if solid
        (progn
-         (gnus-pull 'nnweb-ephemeral-p method)
+         (gnus-alist-pull 'nnweb-ephemeral-p method)
          (gnus-group-make-group group method))
       (gnus-group-read-ephemeral-group
        group method t
@@ -4321,7 +4321,8 @@ and the second element is the address."
   (interactive
    (list (let ((how (gnus-completing-read
                     "Which back end"
-                    (mapcar 'car (append gnus-valid-select-methods gnus-server-alist))
+                    (mapcar 'car (append gnus-valid-select-methods
+                                         gnus-server-alist))
                     t (cons "nntp" 0) 'gnus-method-history)))
           ;; We either got a back end name or a virtual server name.
           ;; If the first, we also need an address.