nnimap.el: Explicitly ask for server capabilities

* lisp/gnus/nnimap.el (nnimap-open-connection-1): Don't assume full
capabilities will be returned in the login-result.

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 161a6b49ea7c6b7cd261b22c6ba83336c883b1b8..594d1f57e7b707e5c1352942806a644af9cca132 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -490,7 +490,7 @@ textual parts.")
                        (funcall (nth 2 credentials)))
                      ;; See if CAPABILITY is set as part of login
                      ;; response.
-                     (dolist (response (cddr login-result))
+                     (dolist (response (cddr (nnimap-command "CAPABILITY")))
                        (when (string= "CAPABILITY" (upcase (car response)))
                          (setf (nnimap-capabilities nnimap-object)
                                (mapcar #'upcase (cdr response))))))